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 | |
| parent | a90fec088355aeb4f670b272dd62acc7369e07ef (diff) | |
Better error message
| -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 |