diff options
| author | Stephen Paul Weber <singpolyma@singpolyma.net> | 2012-12-31 12:54:30 -0500 |
|---|---|---|
| committer | Stephen Paul Weber <singpolyma@singpolyma.net> | 2012-12-31 12:54:30 -0500 |
| commit | ae07fedd5976d0d57961a1d825487c4c9c50341f (patch) | |
| tree | f8b5e4c2b232b5ddc98c0f0d7b75ba577fde620c | |
| parent | 3cb201b180254612a1661301377fa5753cddeb32 (diff) | |
Put out body for MDC packet
| -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 55458b8..6ffeba4 100644 --- a/Data/OpenPGP.hs +++ b/Data/OpenPGP.hs | |||
| @@ -257,7 +257,7 @@ instance BINARY_CLASS Packet where | |||
| 257 | -- Use 5-octet lengths | 257 | -- Use 5-octet lengths |
| 258 | put (255 :: Word8) | 258 | put (255 :: Word8) |
| 259 | put (blen :: Word32) | 259 | put (blen :: Word32) |
| 260 | putSomeByteString body | 260 | putSomeByteString body |
| 261 | where | 261 | where |
| 262 | blen :: (Num a) => a | 262 | blen :: (Num a) => a |
| 263 | blen = fromIntegral $ B.length body | 263 | blen = fromIntegral $ B.length body |