From 57a3a1725f93541f8eb6ddbdeb429fbc37bb4025 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 14 Sep 2016 13:16:39 -0400 Subject: fix build --- Benchmark.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Benchmark.hs') diff --git a/Benchmark.hs b/Benchmark.hs index 65d0031..c1d0795 100644 --- a/Benchmark.hs +++ b/Benchmark.hs @@ -82,7 +82,7 @@ benchmarkPoW rounds seconds = do let Just mk = mkProofOfWorkRequirement seconds s <- newRequestIDSecret rid <- mkRequestID s - benchmark rounds (CPUCost (seconds * fromIntegral rounds)) (Divisibility 1)) + benchmark rounds (CPUCost (seconds * fromIntegral rounds) (Divisibility 1)) (return . genProofOfWork (mk rid)) benchmarkTunables :: Tunables -> IO () -- cgit v1.2.3