From 1934db51341286a76cb623c0d84c06f9869794b4 Mon Sep 17 00:00:00 2001 From: Stephen Paul Weber Date: Mon, 6 Aug 2012 10:49:03 -0500 Subject: Better error message --- Data/OpenPGP.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Data') 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, put_packet (UserIDPacket txt) = (B.fromString txt, 13) put_packet (ModificationDetectionCodePacket bstr) = (bstr, 19) put_packet (UnsupportedPacket tag bytes) = (bytes, fromIntegral tag) -put_packet _ = error "Unsupported Packet version or type in put_packet." +put_packet x = error ("Unsupported Packet version or type in put_packet: " ++ show x) parse_packet :: Word8 -> Get Packet -- SignaturePacket, http://tools.ietf.org/html/rfc4880#section-5.2 -- cgit v1.2.3