Vergara_Tech/mongodb
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

BsonSymbol had a similar utf8 length problem

Browse source
This commit is contained in:
Scott R. Parish 2010-04-15 20:54:44 -05:00
parent cb223110e6
commit 78823834f4
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Database/MongoDB/BSON.hs
View file

@ -315,7 +315,7 @@ putVal (BsonRegex r opt)= do putS r
putByteString $ pack $ List.sort opt putByteString $ pack $ List.sort opt
putNull putNull
putVal (BsonJSCode c) = putStrSz c putVal (BsonJSCode c) = putStrSz c
putVal (BsonSymbol s) = putI32 (fromIntegral $ 1 + L8.length s) >> putS s putVal (BsonSymbol s) = putStrSz s
putVal (BsonJSCodeWScope q s) = putVal (BsonJSCodeWScope q s) =
let bytes = runPut (putStrSz q >> putObj s) let bytes = runPut (putStrSz q >> putObj s)
in putI32 ((+4) $ fromIntegral $ L.length bytes) >> putLazyByteString bytes in putI32 ((+4) $ fromIntegral $ L.length bytes) >> putLazyByteString bytes