1 files changed, 3 insertions, 3 deletions

diff --git a/lib/Kiki.hs b/lib/Kiki.hs
index 7825c85..9934aaa 100644
--- a/lib/Kiki.hs
+++ b/lib/Kiki.hs
@@ -462,7 +462,7 @@ getSshKnownHosts peer@Peer{kd} = Char8.unlines taggedblobs
 
 data MyIdentity = MyIdentity {
   myGpgAddress :: SockAddr,
-  myGpgKeyGrip :: String
+  myGpgKeyGrip :: Fingerprint
 }
 
 installIpsecConf :: FileWriter -> MyIdentity -> [Peer] -> IO ()
@@ -495,7 +495,7 @@ getMyIdentity :: KeyRingRuntime -> Maybe MyIdentity
 getMyIdentity rt = do
     wk <- rtWorkingKey rt
     wkaddr <- gpgipv6addr . getHostnames <$> lookupKeyData (keykey wk) (rtKeyDB rt)
-    return $ MyIdentity wkaddr (show $ fingerprint wk)
+    return $ MyIdentity wkaddr (fingerprint wk)
 
 refreshCache :: KeyRingRuntime -> Maybe FilePath -> IO ()
 refreshCache rt rootdir = do
@@ -638,7 +638,7 @@ show_sshfp keyspec wkgrip db = do
 show_ssh :: String -> String -> KeyDB -> IO ()
 show_ssh keyspec wkgrip db = either warn putStrLn $ show_ssh' keyspec wkgrip db
 
-show_ssh' :: String -> String -> KeyDB -> Either String String
+show_ssh' :: String -> Fingerprint -> KeyDB -> Either String String
 show_ssh' keyspec wkgrip db = do
     let s = parseSpec wkgrip keyspec
     flip (maybe . Left $ keyspec ++ ": not found")