From ae07fedd5976d0d57961a1d825487c4c9c50341f Mon Sep 17 00:00:00 2001 From: Stephen Paul Weber Date: Mon, 31 Dec 2012 12:54:30 -0500 Subject: Put out body for MDC packet --- Data/OpenPGP.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Data/OpenPGP.hs b/Data/OpenPGP.hs index 55458b8..6ffeba4 100644 --- a/Data/OpenPGP.hs +++ b/Data/OpenPGP.hs @@ -257,7 +257,7 @@ instance BINARY_CLASS Packet where -- Use 5-octet lengths put (255 :: Word8) put (blen :: Word32) - putSomeByteString body + putSomeByteString body where blen :: (Num a) => a blen = fromIntegral $ B.length body -- cgit v1.2.3