From c54b35e665f2a8ec2fff484de99fd59b0454dcff Mon Sep 17 00:00:00 2001
From: Joe Crayne <joe@jerkface.net>
Date: Mon, 15 Jul 2019 18:45:45 -0400
Subject: Switched fingerprint to wrapped ByteString + some module shuffling.

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

(limited to 'lib/Kiki.hs')

diff --git a/lib/Kiki.hs b/lib/Kiki.hs
index e919b88..64dc2bd 100644
--- a/lib/Kiki.hs
+++ b/lib/Kiki.hs
@@ -497,7 +497,7 @@ getMyIdentity :: KeyRingRuntime -> Maybe MyIdentity
 getMyIdentity rt = do
     wk <- rtWorkingKey rt
     Hostnames wkaddr _ _ _ <- getHostnames <$> lookupKeyData (keykey wk) (rtKeyDB rt)
-    return $ MyIdentity wkaddr (fingerprint wk)
+    return $ MyIdentity wkaddr (show $ fingerprint wk)
 
 refreshCache :: KeyRingRuntime -> Maybe FilePath -> IO ()
 refreshCache rt rootdir = do
-- 
cgit v1.2.3