@@ -123,7 +123,7 @@ benchmark iters setup teardown action = do -- to standard output. bench :: Int -> IO a -> IO () bench iters action = do - (_, stats) <- benchmark iters (return ()) (const $ return ()) (const action) + (stats, _) <- benchmark iters (return ()) (const $ return ()) (const action) printDetailedStats stats -- | Convenience function that runs several benchmarks using Test/BenchPress.hs ac31d311e1f114b4ebc752c9263b51517d84003d Johan Tibell johan.tibell@gmail.com http://github.com/tibbe/benchpress/commit/168b06738f7143b3bbf49d882a15e7b7a66c1796 168b06738f7143b3bbf49d882a15e7b7a66c1796 2008-10-16T07:25:27-07:00 2008-10-16T07:25:27-07:00 Fixed a bug where wall clock time was used instead of CPU time. 5c44002d225f1495611d3f06126767e5c3e83a1d Johan Tibell johan.tibell@gmail.com