diff options
| author | Joey Hess <joeyh@joeyh.name> | 2016-08-16 13:40:52 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-08-16 13:40:52 -0400 |
| commit | c9c476ae7216b80932b80870a2cd06f9339306aa (patch) | |
| tree | ad2255c1d331bb2f286d7786e65151ba987a8247 /ExpensiveHash.hs | |
| parent | 3229b02f0aa6bb23e351d00ade1263851a2f1826 (diff) | |
| download | keysafe-c9c476ae7216b80932b80870a2cd06f9339306aa.tar.gz | |
improve options to select secret key to backup/restore
Diffstat (limited to 'ExpensiveHash.hs')
| -rw-r--r-- | ExpensiveHash.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |