Commits

Bryan O'Sullivan  committed a7aba4d Merge

Merge

  • Participants
  • Parent commits b8c085e, 61c3588

Comments (0)

Files changed (1)

File Data/Attoparsec/Internal.hs

   if B.null t
     then (skipWhile p <|> return ())
     else return ()
-{-# INLINE skipWhile #-}
 
 takeTill :: (Word8 -> Bool) -> Parser B.ByteString
 takeTill p = takeWhile (not . p)
     if B.null t
       then (h+++) `fmapP` (go <|> return B.empty)
       else return h
-{-# INLINE takeWhile #-}
 
 takeWhile1 :: (Word8 -> Bool) -> Parser B.ByteString
 takeWhile1 p = do
   if B.null t
     then (h+++) `fmapP` (takeWhile p <|> return B.empty)
     else return h
-{-# INLINE takeWhile1 #-}
 
 -- | Match any character in a set.
 --