From 8e9d2029ad4d7c041a9c3ed0a1feebc60ebc4ea6 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 30 Aug 2016 14:01:11 -0400 Subject: rename var --- ExpensiveHash.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'ExpensiveHash.hs') 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 -- cgit v1.2.3