From d0030addd10a5e227ddd82256bdcdb0f5e3811ac Mon Sep 17 00:00:00 2001
From: Joe Crayne <joe@jerkface.net>
Date: Thu, 4 Jul 2019 14:35:33 -0400
Subject: Added --show-key=SPEC command to low-level merge api.

---
 lib/KeyRing/BuildKeyDB.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/KeyRing')

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
-- 
cgit v1.2.3