Commits

Bryan O'Sullivan committed 74254ec

stringCI: lowercase the pattern

Fixes issue #2.

Comments (0)

Files changed (1)

Data/Attoparsec/Internal.hs

 
 stringTransform :: (B.ByteString -> B.ByteString) -> B.ByteString
                 -> Parser B.ByteString
-stringTransform f s = takeWith (B.length s) ((==s) . f)
+stringTransform f s = takeWith (B.length s) ((==f s) . f)
 {-# INLINE stringTransform #-}
 
 -- | Skip past input for as long as the predicate returns 'True'.