From c54b35e665f2a8ec2fff484de99fd59b0454dcff Mon Sep 17 00:00:00 2001 From: Joe Crayne Date: Mon, 15 Jul 2019 18:45:45 -0400 Subject: Switched fingerprint to wrapped ByteString + some module shuffling. --- lib/KeyRing.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lib/KeyRing.hs') diff --git a/lib/KeyRing.hs b/lib/KeyRing.hs index 70edb9e..3da3565 100644 --- a/lib/KeyRing.hs +++ b/lib/KeyRing.hs @@ -883,7 +883,7 @@ writeKeyToFile stream@(StreamInfo { typ = PEMFile }) fname packet = do writeStamped (InputFileContext "" "") fname stamp output setFileCreationMask saved_mask return [(fname, ExportedSubkey)] - Nothing -> return [(fname, UnableToExport (key_algorithm packet) $ fingerprint packet)] + Nothing -> return [(fname, UnableToExport (key_algorithm packet) $ show $ fingerprint packet)] writeKeyToFile StreamInfo { typ = DNSPresentation } fname packet = do case key_algorithm packet of @@ -922,7 +922,7 @@ writeKeyToFile StreamInfo { typ = DNSPresentation } fname packet = do writeStamped (InputFileContext "" "") fname stamp output setFileCreationMask saved_mask return [(fname, ExportedSubkey)] - algo -> return [(fname, UnableToExport algo $ fingerprint packet)] + algo -> return [(fname, UnableToExport algo $ show $ fingerprint packet)] writePEMKeys :: (PacketDecrypter) -> KeyDB -- cgit v1.2.3