diff options
| author | Joe Crayne <joe@jerkface.net> | 2019-07-06 15:19:04 -0400 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2019-07-06 15:19:04 -0400 |
| commit | 2d001913d97ccc05af3b062b42b0df8b155d2a73 (patch) | |
| tree | 6b3c4e5b3fda73df0c4ada4228ea7dcd0709f814 /lib/KeyRing/BuildKeyDB.hs | |
| parent | b0967e64df7a4f4d1cd2af95ccda8a0ba3447138 (diff) | |
Minor cleanup, comments.
Diffstat (limited to 'lib/KeyRing/BuildKeyDB.hs')
| -rw-r--r-- | lib/KeyRing/BuildKeyDB.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/KeyRing/BuildKeyDB.hs b/lib/KeyRing/BuildKeyDB.hs index 24b39b1..dd204d1 100644 --- a/lib/KeyRing/BuildKeyDB.hs +++ b/lib/KeyRing/BuildKeyDB.hs | |||
| @@ -199,7 +199,7 @@ buildKeyDB ctx grip0 keyring = do | |||
| 199 | accs = fmap (access . fst) ringPackets | 199 | accs = fmap (access . fst) ringPackets |
| 200 | return (spilled,mwk,grip,accs,keys,fmap snd unspilled) | 200 | return (spilled,mwk,grip,accs,keys,fmap snd unspilled) |
| 201 | 201 | ||
| 202 | transcode <- makeMemoizingDecrypter keyring ctx (mwk,keyqs) | 202 | transcode <- makeMemoizingDecrypter (opPassphrases keyring) ctx (mwk,keyqs) |
| 203 | let doDecrypt = transcode (Unencrypted,S2K 100 "") | 203 | let doDecrypt = transcode (Unencrypted,S2K 100 "") |
| 204 | 204 | ||
| 205 | let wk = fmap packet mwk | 205 | let wk = fmap packet mwk |