diff --git a/Database/MongoDB/Util.hs b/Database/MongoDB/Util.hs index f825919..ddf9c1c 100644 --- a/Database/MongoDB/Util.hs +++ b/Database/MongoDB/Util.hs @@ -80,4 +80,4 @@ putS :: L8.ByteString -> Put putS s = putLazyByteString s >> putNull putStrSz :: L.ByteString -> Put -putStrSz s = putI32 (fromIntegral $ 1 + L8.length s) >> putS s +putStrSz s = putI32 (fromIntegral $ 1 + L.length s) >> putS s