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 |