git.iko.soy/typeable/attoparsec
on master help sign in
Inline take.
865faebBryan O'Sullivan
Data/Attoparsec/Internal.hs+1
compare with master
unifiedsplit
@@ -202,6 +202,7 @@ put s = Parser (\(S _s0 a0 c0) _kf ks -> ks (S s a0 c0) ())
202
202
203take :: Int -> Parser B.ByteString
203take :: Int -> Parser B.ByteString
204take n = takeWith n (const True)
204take n = takeWith n (const True)
205+{-# INLINE take #-}
205
206
206(+++) :: B.ByteString -> B.ByteString -> B.ByteString
207(+++) :: B.ByteString -> B.ByteString -> B.ByteString
207(+++) = B.append
208(+++) = B.append