@@ -153,6 +153,7 @@ feed :: Result r -> B.ByteString -> Result r
153153feed f@(Fail _ _ _) _ = f
154154feed (Partial k) d = k d
155155feed (Done bs r) d = Done (B.append bs d) r
156+{-# INLINE feed #-}
156157
157158-- | Run a parser and print its result to standard output.
158159parseTest :: (Show a) => I.Parser a -> B.ByteString -> IO ()