diff options
| author | Joe Crayne <joe@jerkface.net> | 2019-07-15 18:45:45 -0400 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2019-07-15 18:45:45 -0400 |
| commit | c54b35e665f2a8ec2fff484de99fd59b0454dcff (patch) | |
| tree | 3d044266ba6e75098e2cb4fe061bf0bb8d666cac /lib/Kiki.hs | |
| parent | da8e9689ce6df97b0bde086f14e40a4e096d2a8f (diff) | |
Switched fingerprint to wrapped ByteString + some module shuffling.
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 |