Oops!
commitae90143ccc41d0aab5c0d8d42b6634c0d746d8f2
authorBryan O'Sullivan <bos@serpentine.com>
dateFri 21 Jan 2011, 18:51 (16 years ago)
parent7807aa2
Data/Attoparsec/Internal.hs+1−1
@@ -380,7 +380,7 @@ takeWhile p = (B.concat . reverse) `fmap` go []
380380 if B.null t
381381 then go (h:acc)
382382 else return (h:acc)
383− else return []
383+ else return acc
384384
385385-- | A stateful scanner. The predicate consumes and transforms a
386386-- state argument, and each transformed state is passed to successive