From 62f97e5be12c1526324c6e6342d054a8d0d32d58 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Wed, 30 Apr 2014 23:02:24 -0400
Subject: oops, really support default passphrase

---
 KeyRing.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)
-- 
cgit v1.2.3