fix type nit for putStrSz
This commit is contained in:
parent
78823834f4
commit
e329747c1a
1 changed files with 1 additions and 1 deletions
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue