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

putI16

Browse source
This commit is contained in:
Scott R. Parish 2010-03-12 23:03:56 -06:00
parent ab3b73b9ac
commit 108532268b
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
Database/MongoDB/Util.hs
View file

@ -25,7 +25,7 @@ WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
module Database.MongoDB.Util module Database.MongoDB.Util
( (
putI8, putI32, putI64, putNothing, putNull, putS, putI8, putI16, putI32, putI64, putNothing, putNull, putS,
getI8, getI32, getI64, getC, getS, getNull, putStrSz, getI8, getI32, getI64, getC, getS, getNull, putStrSz,
) )
where where
@ -61,6 +61,9 @@ getNull = do {c <- getC; assert (c == '\0') $ return ()}
putI8 :: Int8 -> Put putI8 :: Int8 -> Put
putI8 = putWord8 . fromIntegral putI8 = putWord8 . fromIntegral
putI16 :: Int16 -> Put
putI16 = putWord16le . fromIntegral
putI32 :: Int32 -> Put putI32 :: Int32 -> Put
putI32 = putWord32le . fromIntegral putI32 = putWord32le . fromIntegral