1 files changed, 1 insertions, 1 deletions

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