Switched fingerprint to wrapped ByteString + some module shuffling.

1 files changed, 2 insertions, 2 deletions

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