summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--KeyRing.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/KeyRing.hs b/KeyRing.hs
index a88a0a7..c8a5bf9 100644
--- a/KeyRing.hs
+++ b/KeyRing.hs
@@ -1688,7 +1688,7 @@ makeMemoizingDecrypter operation ctx = do
1688 return $ KikiSuccess wkun 1688 return $ KikiSuccess wkun
1689 _ -> decryptIt getpws 1689 _ -> decryptIt getpws
1690 1690
1691 getpws = mapMaybe (`Map.lookup` pws) fs 1691 getpws = mapMaybe (`Map.lookup` pws) fs ++ maybeToList defpw
1692 1692
1693 case symmetric_algorithm wk of 1693 case symmetric_algorithm wk of
1694 Unencrypted -> return (KikiSuccess wk) 1694 Unencrypted -> return (KikiSuccess wk)