Commits

Bryan O'Sullivan committed f701496

bytestring: ensure that -ve args to take are safe

This fixes bug #37.

Comments (0)

Files changed (1)

Data/Attoparsec/ByteString/Internal.hs

 -- | Consume @n@ bytes of input, but succeed only if the predicate
 -- returns 'True'.
 takeWith :: Int -> (B.ByteString -> Bool) -> Parser B.ByteString
-takeWith n p = do
+takeWith n0 p = do
+  let n = max n0 0
   s <- ensure n
   let h = B.unsafeTake n s
       t = B.unsafeDrop n s