From cb223110e6d154f198f16fe9ad738c6eafd81d65 Mon Sep 17 00:00:00 2001
From: "qxjit (David Vollbracht)" <david.vollbracht@gmail.com>
Date: Thu, 15 Apr 2010 09:00:45 +0800
Subject: [PATCH] Fix string size in bson docs to be number of bytes rather
 than number of utf8 chars

---
 Database/MongoDB/Util.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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