From 108532268ba84cc9a9ea45ca5cbb77ced96c4069 Mon Sep 17 00:00:00 2001
From: "Scott R. Parish" <srp@srparish.net>
Date: Fri, 12 Mar 2010 23:03:56 -0600
Subject: [PATCH] putI16

---
 Database/MongoDB/Util.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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