git.iko.soy/binary-bits
on master help sign in
Guard getByteString for negative numbers.
9443d4eLennart Kolmodin
Data/Binary/Bits/Get.hs+2−1
compare with master
unifiedsplit
@@ -419,7 +419,8 @@ word64be n = Block n (readWord64be n)
419
419
420-- | Read @n@ bytes as a 'ByteString'.
420-- | Read @n@ bytes as a 'ByteString'.
421byteString :: Int -> Block ByteString
421byteString :: Int -> Block ByteString
422−byteString n = Block (n*8) (readByteString n)
422+byteString n | n > 0 = Block (n*8) (readByteString n)
423+ | otherwise = Block 0 (\_ -> B.empty)
423
424
424------------------------------------------------------------------------
425------------------------------------------------------------------------
425-- Unchecked shifts, from the package binary
426-- Unchecked shifts, from the package binary