diff options
| author | Joey Hess <joeyh@joeyh.name> | 2016-08-30 14:01:11 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-08-30 14:01:11 -0400 |
| commit | 8e9d2029ad4d7c041a9c3ed0a1feebc60ebc4ea6 (patch) | |
| tree | 7a6487755d2e3a07b68da425523efb97f610feec /ExpensiveHash.hs | |
| parent | 73986f7efc9b45d817b61763b08cf928eb4d1e89 (diff) | |
| download | keysafe-8e9d2029ad4d7c041a9c3ed0a1feebc60ebc4ea6.tar.gz | |
rename var
Diffstat (limited to 'ExpensiveHash.hs')
| -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 |