diff options
| author | joe <joe@jerkface.net> | 2014-04-30 23:02:24 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2014-04-30 23:02:24 -0400 |
| commit | 62f97e5be12c1526324c6e6342d054a8d0d32d58 (patch) | |
| tree | 3ea37c7f289fafa1cbd6b3f5dd07d3b958a4ad2e /KeyRing.hs | |
| parent | aa5bf4e7ba36a07898a8ffaf9c6b25d973fb05d6 (diff) | |
oops, really support default passphrase
Diffstat (limited to 'KeyRing.hs')
| -rw-r--r-- | KeyRing.hs | 2 |
1 files changed, 1 insertions, 1 deletions
| @@ -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) |