Commits

Bryan O'Sullivan committed 02f7304

Inline feed

  • Participants
  • Parent commits cd4cd8c

Comments (0)

Files changed (1)

File Data/Attoparsec.hs

 feed f@(Fail _ _ _) _ = f
 feed (Partial k) d    = k d
 feed (Done bs r) d    = Done (B.append bs d) r
+{-# INLINE feed #-}
 
 -- | Run a parser and print its result to standard output.
 parseTest :: (Show a) => I.Parser a -> B.ByteString -> IO ()