1 files changed, 3 insertions, 2 deletions

diff --git a/LengthPrefixedBE.hs b/LengthPrefixedBE.hs
index 9d8472d..dd74fe3 100644
--- a/LengthPrefixedBE.hs
+++ b/LengthPrefixedBE.hs
@@ -10,6 +10,7 @@ import Control.Monad (when)
 import Data.Bits
 import Data.Binary
 import Data.Binary.Get
+import Data.Binary.Put (putWord32be, putLazyByteString)
 import Data.Int
 
 {-
@@ -41,8 +42,8 @@ newtype LengthPrefixedBE = LengthPrefixedBE Integer
 instance Binary LengthPrefixedBE where
 
     put (LengthPrefixedBE n) = do
-        put len
-        put bytes
+        putWord32be len
+        putLazyByteString bytes
      where
         bytes = encode_bigendian n
         len = fromIntegral (L.length bytes) :: Word32