summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorjoe <joe@jerkface.net>2014-04-30 23:02:24 -0400
committerjoe <joe@jerkface.net>2014-04-30 23:02:24 -0400
commit62f97e5be12c1526324c6e6342d054a8d0d32d58 (patch)
tree3ea37c7f289fafa1cbd6b3f5dd07d3b958a4ad2e
parentaa5bf4e7ba36a07898a8ffaf9c6b25d973fb05d6 (diff)
oops, really support default passphrase
-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)