From 176dbd5798a7def03ea6c61713a0c216ab1e1674 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Wed, 31 Aug 2016 12:48:11 -0400
Subject: comment

---
 ExpensiveHash.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'ExpensiveHash.hs')

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"))))
-- 
cgit v1.2.3