diff options
author | joe <joe@jerkface.net> | 2014-04-29 00:46:25 -0400 |
---|---|---|
committer | joe <joe@jerkface.net> | 2014-04-29 00:46:25 -0400 |
commit | 5984846100ebfc4b7e90075b668c1acdf12e900c (patch) | |
tree | c120970cf93d312d22913636638a9930024b7398 /KeyRing.hs | |
parent | b1579d82573b9d2ed12f396e510b590195c14aaf (diff) |
Oops, handle empty keyring files.
Diffstat (limited to 'KeyRing.hs')
-rw-r--r-- | KeyRing.hs | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -997,6 +997,7 @@ buildKeyDB doDecrypt secring pubring grip0 keyring = do | |||
997 | case ps of | 997 | case ps of |
998 | Message ((PublicKeyPacket {}):_) -> Pub | 998 | Message ((PublicKeyPacket {}):_) -> Pub |
999 | Message ((SecretKeyPacket {}):_) -> Sec | 999 | Message ((SecretKeyPacket {}):_) -> Sec |
1000 | _ -> AutoAccess | ||
1000 | acc -> acc | 1001 | acc -> acc |
1001 | 1002 | ||
1002 | readw wk n = fmap (n,) (readPacketsFromWallet wk n) | 1003 | readw wk n = fmap (n,) (readPacketsFromWallet wk n) |