BsonSymbol had a similar utf8 length problem
This commit is contained in:
parent
cb223110e6
commit
78823834f4
1 changed files with 1 additions and 1 deletions
|
@ -315,7 +315,7 @@ putVal (BsonRegex r opt)= do putS r
|
|||
putByteString $ pack $ List.sort opt
|
||||
putNull
|
||||
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) =
|
||||
let bytes = runPut (putStrSz q >> putObj s)
|
||||
in putI32 ((+4) $ fromIntegral $ L.length bytes) >> putLazyByteString bytes
|
||||
|
|
Loading…
Reference in a new issue