diff options
-rw-r--r-- | Benchmark.hs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/Benchmark.hs b/Benchmark.hs index c1d0795..c121e17 100644 --- a/Benchmark.hs +++ b/Benchmark.hs @@ -24,11 +24,8 @@ import Data.Maybe data BenchmarkResult t = BenchmarkResult { expectedBenchmark :: t, actualBenchmark :: t } instance Show (BenchmarkResult (Cost op)) where - show br = " expected: " ++ showtime (expectedBenchmark br) ++ "s" - ++ "\tactual: " ++ showtime (actualBenchmark br) ++ "s" - where - showtime (CPUCost (Seconds s) _) = - show (fromRational s :: Double) + show br = " expected: " ++ show (expectedBenchmark br) ++ "s" + ++ "\tactual: " ++ show (actualBenchmark br) ++ "s" benchmarkExpensiveHash :: Int -> ExpensiveHashTunable -> IO (BenchmarkResult (Cost CreationOp)) benchmarkExpensiveHash rounds tunables = |