diff options
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 | ||