From d5b38fc2736ae75c872a6eb51d80cc90e97d1fc4 Mon Sep 17 00:00:00 2001
From: Andrew Cady <d@jerkface.net>
Date: Tue, 16 Jul 2019 21:14:32 -0400
Subject: KeyExact

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

(limited to 'lib/KeyRing.hs')

diff --git a/lib/KeyRing.hs b/lib/KeyRing.hs
index 8c92a81..4260eeb 100644
--- a/lib/KeyRing.hs
+++ b/lib/KeyRing.hs
@@ -673,7 +673,7 @@ isauth rt keydata = dont_have keydata && maybe False (`has_good_sig` keydata) wk
                 workingKey grip use_db = listToMaybe $ do
                             fp <- maybeToList grip
                             elm <- keyData use_db
-                            guard $ matchSpec (KeyGrip $ show fp) elm
+                            guard $ matchSpec (KeyExact $ Just fp) elm
                             return $ keyPacket elm
 
 mkarmor :: Access -> L.ByteString -> [Armor]
-- 
cgit v1.2.3