git.iko.soy/binary-bits
on master help sign in
Comment
f723509Lennart Kolmodin
Data/Binary/Bits/Get.hs+2
compare with master
unifiedsplit
@@ -290,6 +290,8 @@ getWord32be n = ensureBits n >> modifyState (flip readWord32be n)
290getWord64be :: Int -> BitGet Word64
290getWord64be :: Int -> BitGet Word64
291getWord64be n = ensureBits n >> modifyState (flip readWord64be n)
291getWord64be n = ensureBits n >> modifyState (flip readWord64be n)
292
292
293+-- | Get a @ByteString@. Drops the current byte if we've started to read
294+-- from it.
293getByteString :: Int -> BitGet ByteString
295getByteString :: Int -> BitGet ByteString
294getByteString n = do
296getByteString n = do
295 ensureBits (n*8)
297 ensureBits (n*8)