diff options
Diffstat (limited to 'lib/Kiki.hs')
-rw-r--r-- | lib/Kiki.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 | |||
497 | getMyIdentity rt = do | 497 | getMyIdentity rt = do |
498 | wk <- rtWorkingKey rt | 498 | wk <- rtWorkingKey rt |
499 | Hostnames wkaddr _ _ _ <- getHostnames <$> lookupKeyData (keykey wk) (rtKeyDB rt) | 499 | Hostnames wkaddr _ _ _ <- getHostnames <$> lookupKeyData (keykey wk) (rtKeyDB rt) |
500 | return $ MyIdentity wkaddr (fingerprint wk) | 500 | return $ MyIdentity wkaddr (show $ fingerprint wk) |
501 | 501 | ||
502 | refreshCache :: KeyRingRuntime -> Maybe FilePath -> IO () | 502 | refreshCache :: KeyRingRuntime -> Maybe FilePath -> IO () |
503 | refreshCache rt rootdir = do | 503 | refreshCache rt rootdir = do |