Oops, handle empty keyring files.

1 files changed, 1 insertions, 0 deletions

diff --git a/KeyRing.hs b/KeyRing.hs
index f7b4ec8..52635be 100644
--- a/KeyRing.hs
+++ b/KeyRing.hs
@@ -997,6 +997,7 @@ buildKeyDB doDecrypt secring pubring grip0 keyring = do
                                 case ps of
                                     Message ((PublicKeyPacket {}):_) -> Pub
                                     Message ((SecretKeyPacket {}):_) -> Sec
+                                    _                                -> AutoAccess
                             acc -> acc
 
         readw wk n = fmap (n,) (readPacketsFromWallet wk n)