Construct the "added" bytestring lazily, since we rarely need it.
This saves us a lot of needless bytestring copying.
commit0bec003dd80ec4ec24aae7b943fdd79fd4c6b8b1
authorBryan O'Sullivan <bos@serpentine.com>
dateWed 12 Jan 2011, 13:21 (16 years ago)
parentc5873a7
Data/Attoparsec/Internal.hs+1−1
@@ -106,7 +106,7 @@ instance Monoid More where
106106
107107data S = S {
108108 input :: !B.ByteString
109− , _added :: !B.ByteString
109+ , _added :: B.ByteString
110110 , more :: !More
111111 } deriving (Show)
112112