add --benchmark

1 files changed, 2 insertions, 2 deletions

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
 		}