Inlining wantInput seems (?) to help perf
commitc86d82d5a1b291b0f6923c3810b3a076c21395fc
authorBryan O'Sullivan <bos@serpentine.com>
dateFri 16 May 2014, 22:32 (12 years ago)
parent9616807
Data/Attoparsec/ByteString/Internal.hs+2
@@ -502,6 +502,8 @@ wantInput = T.Parser $ \t pos more _lose succ ->
502502 | otherwise -> let lose' t' pos' more' = succ t' pos' more' False
503503 succ' t' pos' more' = succ t' pos' more' True
504504 in prompt t pos more lose' succ'
505+{-# INLINE wantInput #-}
506+
505507-- | Match only if all input has been consumed.
506508endOfInput :: Parser ()
507509endOfInput = T.Parser $ \t pos more lose succ ->