@@ -278,14 +278,13 @@ takeSplit split = go
278278 if B.null t
279279 then (h+++) `fmapP` (go <|> return B.empty)
280280 else return h
281+{-# INLINE takeSplit #-}
281282
282283takeTill :: (Word8 -> Bool) -> Parser B.ByteString
283284takeTill = takeSplit . B8.break
284−{-# INLINE takeTill #-}
285285
286286takeWhile :: (Word8 -> Bool) -> Parser B.ByteString
287287takeWhile = takeSplit . B8.span
288−{-# INLINE takeWhile #-}
289288
290289takeWhile1 :: (Word8 -> Bool) -> Parser B.ByteString
291290takeWhile1 p = do