From e26b363df51c61bb779563697c59304f78e55cdf Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 14 Sep 2016 20:24:42 -0400 Subject: simplify --- Benchmark.hs | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) (limited to 'Benchmark.hs') 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 = -- cgit v1.2.3