From c9c476ae7216b80932b80870a2cd06f9339306aa Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 16 Aug 2016 13:40:52 -0400 Subject: improve options to select secret key to backup/restore --- ExpensiveHash.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'ExpensiveHash.hs') diff --git a/ExpensiveHash.hs b/ExpensiveHash.hs index 0e33604..9cf647f 100644 --- a/ExpensiveHash.hs +++ b/ExpensiveHash.hs @@ -47,7 +47,7 @@ benchmarkExpensiveHash rounds tunables expected = do start <- getCurrentTime forM_ [1..rounds] $ \_ -> do let ExpensiveHash _ t = expensiveHash tunables - (Salt (KeyId gpgKey ("benchmark" :: B.ByteString))) + (Salt (GpgKey (KeyId ("dummy" :: B.ByteString)))) ("himom" :: B.ByteString) t `deepseq` return () end <- getCurrentTime -- cgit v1.2.3