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