1. Bryan O'Sullivan
  2. attoparsec

Commits

Bryan O'Sullivan  committed 74254ec

stringCI: lowercase the pattern

Fixes issue #2.

  • Participants
  • Parent commits 15c8b93
  • Branches default

Comments (0)

Files changed (1)

File Data/Attoparsec/Internal.hs

View file
 
 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'.