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/PacketTranscoder.hs | |
parent | da8e9689ce6df97b0bde086f14e40a4e096d2a8f (diff) |
Switched fingerprint to wrapped ByteString + some module shuffling.
Diffstat (limited to 'lib/PacketTranscoder.hs')
-rw-r--r-- | lib/PacketTranscoder.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/PacketTranscoder.hs b/lib/PacketTranscoder.hs index 16d1db5..759d83f 100644 --- a/lib/PacketTranscoder.hs +++ b/lib/PacketTranscoder.hs | |||
@@ -40,9 +40,9 @@ keyCompare what (SecretKeyPacket {}) (PublicKeyPacket {}) = LT | |||
40 | keyCompare what (PublicKeyPacket {}) (SecretKeyPacket {}) = GT | 40 | keyCompare what (PublicKeyPacket {}) (SecretKeyPacket {}) = GT |
41 | keyCompare what a b | keykey a==keykey b = EQ | 41 | keyCompare what a b | keykey a==keykey b = EQ |
42 | keyCompare what a b = error $ unlines ["Unable to merge "++what++":" | 42 | keyCompare what a b = error $ unlines ["Unable to merge "++what++":" |
43 | , if isKey a then fingerprint a else "" | 43 | , if isKey a then show $ fingerprint a else "" |
44 | , PP.ppShow a | 44 | , PP.ppShow a |
45 | , if isKey b then fingerprint b else "" | 45 | , if isKey b then show $ fingerprint b else "" |
46 | , PP.ppShow b | 46 | , PP.ppShow b |
47 | ] | 47 | ] |
48 | 48 | ||