diff options
-rw-r--r-- | Benchmark.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 () |