2 files changed, 9 insertions, 8 deletions

diff --git a/lib/KeyRing/BuildKeyDB.hs b/lib/KeyRing/BuildKeyDB.hs
index 90f7292..461afa2 100644
--- a/lib/KeyRing/BuildKeyDB.hs
+++ b/lib/KeyRing/BuildKeyDB.hs
@@ -35,7 +35,7 @@ import           Data.List
 import qualified Data.Map                   as Map
 import           Data.Maybe
 import           Data.OpenPGP
-import           Data.OpenPGP.Util          (GenerateKeyParams (..), fingerprint, generateKey, pgpSign, verify)
+import           Data.OpenPGP.Util          (Fingerprint, GenerateKeyParams (..), fingerprint, generateKey, pgpSign, verify)
 
 
 import           Data.Time.Clock            (UTCTime)
@@ -408,7 +408,7 @@ usageFromFilter _                = mzero
 
 -- | Parse a key specification.
 -- The first argument is a grip for the default working key.
-parseSpec :: String -> String -> (KeySpec,Maybe String)
+parseSpec :: Fingerprint -> String -> (KeySpec,Maybe String)
 parseSpec wkgrip spec =
     if not slashed
         then
diff --git a/lib/KeyRing/Types.hs b/lib/KeyRing/Types.hs
index 5318b31..1177789 100644
--- a/lib/KeyRing/Types.hs
+++ b/lib/KeyRing/Types.hs
@@ -349,14 +349,15 @@ isTrust _                = False
 --
 -- matchpr fp = Data.List.Extra.takeEnd (length fp)
 --
-matchpr :: String -> Packet -> String
-matchpr fp k = reverse $ zipWith const (reverse (show $ fingerprint k)) fp
-
+matchpr :: Fingerprint -> Packet -> Bool
+matchpr fp k = p == show fp
+  where
+    p = reverse $ zipWith const (reverse (show $ fingerprint k)) (show fp)
 
 
 
 data KeySpec =
-      KeyGrip String       -- fp:
+      KeyGrip Fingerprint  -- fp:
     | KeyTag Packet String -- fp:????/t:
     | KeyUidMatch String   -- u:
  deriving Show
@@ -427,8 +428,8 @@ seek_key :: KeySpec -> [Packet] -> ([Packet],[Packet])
 seek_key (KeyGrip grip) sec = (pre, subs)
   where
     (pre,subs) = break pred sec
-    pred p@(SecretKeyPacket {}) = matchpr grip p == grip
-    pred p@(PublicKeyPacket {}) = matchpr grip p == grip
+    pred p@(SecretKeyPacket {}) = matchpr grip p
+    pred p@(PublicKeyPacket {}) = matchpr grip p
     pred _                      = False
 
 seek_key (KeyTag key tag) ps