diff options
author | Joey Hess <joeyh@joeyh.name> | 2016-09-14 13:16:39 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2016-09-14 13:16:39 -0400 |
commit | 57a3a1725f93541f8eb6ddbdeb429fbc37bb4025 (patch) | |
tree | d539d6a78fb0a012e5c792d593338696b852df54 /Benchmark.hs | |
parent | 9147cf1e59e475e4b3c182c10d8b039e9384d8dc (diff) | |
download | keysafe-57a3a1725f93541f8eb6ddbdeb429fbc37bb4025.tar.gz |
fix build
Diffstat (limited to 'Benchmark.hs')
-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 () |