Merge
commitec45173980fdc2cb68fa6a4be54470bed8f02832
authorBryan O'Sullivan <bos@serpentine.com>
dateTue 21 Feb 2012, 21:18 (15 years ago)
parentfd3907bdb16946
Data/Attoparsec/Text/Internal.hs+1−1
@@ -231,7 +231,7 @@ string s = takeWith (T.length s) (==s)
231231-- "ss"), which makes a simple, efficient implementation tricky. We
232232-- have (for now) chosen simplicity over efficiency.
233233stringCI :: Text -> Parser Text
234−stringCI s = go (T.length s)
234+stringCI s = go 0
235235 where
236236 go !n
237237 | n > T.length fs = fail "stringCI"