@@ -218,7 +218,8 @@ storable = hack undefined
218-- | Consume @n@ bytes of input, but succeed only if the predicate
218-- | Consume @n@ bytes of input, but succeed only if the predicate
219-- returns 'True'.
219-- returns 'True'.
220takeWith :: Int -> (B.ByteString -> Bool) -> Parser B.ByteString
220takeWith :: Int -> (B.ByteString -> Bool) -> Parser B.ByteString
221−takeWith n p = do
221+takeWith n0 p = do
222 s <- ensure n
223 s <- ensure n
223 let h = B.unsafeTake n s
224 let h = B.unsafeTake n s
224 t = B.unsafeDrop n s
225 t = B.unsafeDrop n s