diff options
author | Stephen Paul Weber <singpolyma@singpolyma.net> | 2012-08-06 10:49:03 -0500 |
---|---|---|
committer | Stephen Paul Weber <singpolyma@singpolyma.net> | 2012-08-06 10:49:03 -0500 |
commit | 1934db51341286a76cb623c0d84c06f9869794b4 (patch) | |
tree | 01e016f68988108a80d373379d0940b47b4292b1 /Data | |
parent | a90fec088355aeb4f670b272dd62acc7369e07ef (diff) |
Better error message
Diffstat (limited to 'Data')
-rw-r--r-- | Data/OpenPGP.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Data/OpenPGP.hs b/Data/OpenPGP.hs index ce6ab90..23e2bbb 100644 --- a/Data/OpenPGP.hs +++ b/Data/OpenPGP.hs | |||
@@ -446,7 +446,7 @@ put_packet (LiteralDataPacket { format = format, filename = filename, | |||
446 | put_packet (UserIDPacket txt) = (B.fromString txt, 13) | 446 | put_packet (UserIDPacket txt) = (B.fromString txt, 13) |
447 | put_packet (ModificationDetectionCodePacket bstr) = (bstr, 19) | 447 | put_packet (ModificationDetectionCodePacket bstr) = (bstr, 19) |
448 | put_packet (UnsupportedPacket tag bytes) = (bytes, fromIntegral tag) | 448 | put_packet (UnsupportedPacket tag bytes) = (bytes, fromIntegral tag) |
449 | put_packet _ = error "Unsupported Packet version or type in put_packet." | 449 | put_packet x = error ("Unsupported Packet version or type in put_packet: " ++ show x) |
450 | 450 | ||
451 | parse_packet :: Word8 -> Get Packet | 451 | parse_packet :: Word8 -> Get Packet |
452 | -- SignaturePacket, http://tools.ietf.org/html/rfc4880#section-5.2 | 452 | -- SignaturePacket, http://tools.ietf.org/html/rfc4880#section-5.2 |