Inline take.
commit865faeb596bb15de5f00ed399c992390efa9882f
authorBryan O'Sullivan <bos@serpentine.com>
dateSat 27 Feb 2010, 13:10 (17 years ago)
parentd8d41e9
Data/Attoparsec/Internal.hs+1
@@ -202,6 +202,7 @@ put s = Parser (\(S _s0 a0 c0) _kf ks -> ks (S s a0 c0) ())
202202
203203take :: Int -> Parser B.ByteString
204204take n = takeWith n (const True)
205+{-# INLINE take #-}
205206
206207(+++) :: B.ByteString -> B.ByteString -> B.ByteString
207208(+++) = B.append