From 3229b02f0aa6bb23e351d00ade1263851a2f1826 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Tue, 16 Aug 2016 13:07:43 -0400
Subject: add --benchmark

---
 ExpensiveHash.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'ExpensiveHash.hs')

diff --git a/ExpensiveHash.hs b/ExpensiveHash.hs
index 3d832fb..0e33604 100644
--- a/ExpensiveHash.hs
+++ b/ExpensiveHash.hs
@@ -42,7 +42,7 @@ expensiveHash (UseArgon2 cost opts) (Salt s) b = ExpensiveHash cost $
 		let sb = toByteString s
 		in sb <> B.replicate (8 - B.length sb ) 32
 
-benchmarkExpensiveHash :: Int -> ExpensiveHashTunable -> Cost op -> IO (Benchmark (Cost op))
+benchmarkExpensiveHash :: Int -> ExpensiveHashTunable -> Cost op -> IO (BenchmarkResult (Cost op))
 benchmarkExpensiveHash rounds tunables expected = do
 	start <- getCurrentTime
 	forM_ [1..rounds] $ \_ -> do
@@ -53,7 +53,7 @@ benchmarkExpensiveHash rounds tunables expected = do
 	end <- getCurrentTime
 	let diff = floor $ end `diffUTCTime` start
 	let actual = CPUCost $ Seconds diff
-	return $ Benchmark
+	return $ BenchmarkResult
 		{ expectedBenchmark = expected
 		, actualBenchmark = actual
 		}
-- 
cgit v1.2.3