diff options
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 |