@@ -267,7 +267,6 @@ skipWhile p = do
267 if B.null t
267 if B.null t
268 then (skipWhile p <|> return ())
268 then (skipWhile p <|> return ())
269 else return ()
269 else return ()
270−{-# INLINE skipWhile #-}
272takeTill :: (Word8 -> Bool) -> Parser B.ByteString
271takeTill :: (Word8 -> Bool) -> Parser B.ByteString
273takeTill p = takeWhile (not . p)
272takeTill p = takeWhile (not . p)
@@ -283,7 +282,6 @@ takeWhile p = go
283 if B.null t
282 if B.null t
284 then (h+++) `fmapP` (go <|> return B.empty)
283 then (h+++) `fmapP` (go <|> return B.empty)
285 else return h
284 else return h
286−{-# INLINE takeWhile #-}
288takeWhile1 :: (Word8 -> Bool) -> Parser B.ByteString
286takeWhile1 :: (Word8 -> Bool) -> Parser B.ByteString
289takeWhile1 p = do
287takeWhile1 p = do
@@ -294,7 +292,6 @@ takeWhile1 p = do
294 if B.null t
292 if B.null t
295 then (h+++) `fmapP` (takeWhile p <|> return B.empty)
293 then (h+++) `fmapP` (takeWhile p <|> return B.empty)
296 else return h
294 else return h
297−{-# INLINE takeWhile1 #-}
299-- | Match any character in a set.
296-- | Match any character in a set.