Commits

Bryan O'Sullivan committed 061d833 Merge

Merge

Comments (0)

Files changed (1)

Data/Attoparsec/Text/Internal.hs

 -- "ss"), which makes a simple, efficient implementation tricky.  We
 -- have (for now) chosen simplicity over efficiency.
 stringCI :: Text -> Parser Text
-stringCI s = go (T.length s)
+stringCI s = go 0
   where
     go !n
       | n > T.length fs = fail "stringCI"