diff options
-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) |