From e329747c1a46196a55e6d141f26b8a2434f5ce14 Mon Sep 17 00:00:00 2001 From: "Scott R. Parish" Date: Thu, 15 Apr 2010 20:55:00 -0500 Subject: [PATCH] fix type nit for putStrSz --- Database/MongoDB/Util.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Database/MongoDB/Util.hs b/Database/MongoDB/Util.hs index ddf9c1c..4de9f5c 100644 --- a/Database/MongoDB/Util.hs +++ b/Database/MongoDB/Util.hs @@ -79,5 +79,5 @@ putNull = putI8 0 putS :: L8.ByteString -> Put putS s = putLazyByteString s >> putNull -putStrSz :: L.ByteString -> Put +putStrSz :: L8.ByteString -> Put putStrSz s = putI32 (fromIntegral $ 1 + L.length s) >> putS s