diff options
author | Joey Hess <joeyh@joeyh.name> | 2016-09-14 20:24:42 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2016-09-14 20:24:42 -0400 |
commit | e26b363df51c61bb779563697c59304f78e55cdf (patch) | |
tree | ba2158f99d1705f970a713db35c1afedeb951370 /Benchmark.hs | |
parent | 42585681acaed341f32a104a3873ad0566f9ca51 (diff) | |
download | keysafe-e26b363df51c61bb779563697c59304f78e55cdf.tar.gz |
simplify
Diffstat (limited to 'Benchmark.hs')
-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 = |