diff options
| -rw-r--r-- | ExpensiveHash.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ExpensiveHash.hs b/ExpensiveHash.hs index 93fb115..89a2f2b 100644 --- a/ExpensiveHash.hs +++ b/ExpensiveHash.hs @@ -64,8 +64,8 @@ benchmarkExpensiveHash rounds tunables@(UseArgon2 _ hashopts) expected = do -- based on the number of cores, up to a maximum of the number -- of threads that the hash is configred to use. let maxthreads = Argon2.hashParallelism hashopts - let usedcpus = if numcores > maxthreads then maxthreads else numcores - let adjustedexpected = mapCost (`div` fromIntegral usedcpus) expected + let usedcores = if numcores > maxthreads then maxthreads else numcores + let adjustedexpected = mapCost (`div` fromIntegral usedcores) expected return $ BenchmarkResult { expectedBenchmark = adjustedexpected , actualBenchmark = actual |