oops, really support default passphrase

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
                         return $ KikiSuccess wkun
                     _ -> decryptIt getpws
 
-            getpws = mapMaybe (`Map.lookup` pws) fs
+            getpws = mapMaybe (`Map.lookup` pws) fs ++ maybeToList defpw
 
         case symmetric_algorithm wk of
             Unencrypted -> return (KikiSuccess wk)