1 files changed, 1 insertions, 1 deletions

diff --git a/lib/KeyRing/BuildKeyDB.hs b/lib/KeyRing/BuildKeyDB.hs
index 8e54127..10e2d41 100644
--- a/lib/KeyRing/BuildKeyDB.hs
+++ b/lib/KeyRing/BuildKeyDB.hs
@@ -324,7 +324,7 @@ readPacketsFromFile ctx fname = do
       Right (more,_,pkt) -> (,) BinaryPackets $ Message $ pkt : decodePacketList more
       Left  (_,_,_)      -> case ASCIIArmor.decodeLazy input of
           Right (Armor pubOrSec headers bs:_) -> (,) AsciiArmor $ Message $ decodePacketList bs
-          Left  errmsg                        -> (,) DetectAscii $ Message []
+          _                                   -> (,) DetectAscii $ Message []
 
 readPacketsFromWallet ::
     Maybe Packet