stringCI: lowercase the pattern
Fixes issue #2.
commit2e3d3bb742188bbae75a1cd4c3ecb81b08e77a8e
authorBryan O'Sullivan <bos@serpentine.com>
dateSun 7 Nov 2010, 08:48 (16 years ago)
parentaef0309
Data/Attoparsec/Internal.hs+1−1
@@ -322,7 +322,7 @@ string s = takeWith (B.length s) (==s)
322322
323323stringTransform :: (B.ByteString -> B.ByteString) -> B.ByteString
324324 -> Parser B.ByteString
325−stringTransform f s = takeWith (B.length s) ((==s) . f)
325+stringTransform f s = takeWith (B.length s) ((==f s) . f)
326326{-# INLINE stringTransform #-}
327327
328328-- | Skip past input for as long as the predicate returns 'True'.