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

8e035fded4 missed the Put side

Browse source
This commit is contained in:
Scott R. Parish 2010-03-14 13:25:44 -05:00
parent 532e758fe4
commit 8df947c704
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
Database/MongoDB/BSON.hs
View file

@ -294,10 +294,11 @@ putVal (BsonDoc o) = putObj o
putVal (BsonArray es) = putOutterObj bs putVal (BsonArray es) = putOutterObj bs
where bs = runPut $ forM_ (List.zip [(0::Int) .. ] es) $ \(i, e) -> where bs = runPut $ forM_ (List.zip [(0::Int) .. ] es) $ \(i, e) ->
putType e >> putS (L8.fromString $ show i) >> putVal e putType e >> putS (L8.fromString $ show i) >> putVal e
putVal (BsonBinary t bs)= do putI32 $ fromIntegral $ 4 + L.length bs putVal (BsonBinary t bs) = do
putI8 $ fromBinarySubType t putI32 $ fromIntegral $ (if t == BSTByteArray then 4 else 0) + L.length bs
putI32 $ fromIntegral $ L.length bs putI8 $ fromBinarySubType t
putLazyByteString bs when (t == BSTByteArray) $ putI32 $ fromIntegral $ L.length bs
putLazyByteString bs
putVal BsonUndefined = putNothing putVal BsonUndefined = putNothing
putVal (BsonObjectId o) = putWord64be (fromIntegral $ o `shiftR` 32) >> putVal (BsonObjectId o) = putWord64be (fromIntegral $ o `shiftR` 32) >>
putWord32be (fromIntegral $ o .&. 0xffffffff) putWord32be (fromIntegral $ o .&. 0xffffffff)