fix type nit for putStrSz

This commit is contained in:
Scott R. Parish 2010-04-15 20:55:00 -05:00
parent 78823834f4
commit e329747c1a

View file

@ -79,5 +79,5 @@ putNull = putI8 0
putS :: L8.ByteString -> Put putS :: L8.ByteString -> Put
putS s = putLazyByteString s >> putNull putS s = putLazyByteString s >> putNull
putStrSz :: L.ByteString -> Put putStrSz :: L8.ByteString -> Put
putStrSz s = putI32 (fromIntegral $ 1 + L.length s) >> putS s putStrSz s = putI32 (fromIntegral $ 1 + L.length s) >> putS s