diff options
-rw-r--r-- | ExpensiveHash.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/ExpensiveHash.hs b/ExpensiveHash.hs index ddb7eaa..b46b23c 100644 --- a/ExpensiveHash.hs +++ b/ExpensiveHash.hs @@ -53,6 +53,8 @@ benchmarkExpensiveHash rounds tunables@(UseArgon2 _ hashopts) expected = do <$> getNumCores start <- getCurrentTime forM_ [1..rounds] $ \n -> do + -- Must vary the data being hashed to avoid laziness + -- caching hash results. let base = BU8.fromString (show n) let ExpensiveHash _ t = expensiveHash tunables (Salt (GpgKey (KeyId (base <> "dummy")))) |