git.iko.soy/typeable/attoparsec
on master help sign in
stringCI: lowercase the pattern
2e3d3bbBryan O'Sullivan
Data/Attoparsec/Internal.hs+1−1
compare with master
unifiedsplit
@@ -322,7 +322,7 @@ string s = takeWith (B.length s) (==s)
322
322
323stringTransform :: (B.ByteString -> B.ByteString) -> B.ByteString
323stringTransform :: (B.ByteString -> B.ByteString) -> B.ByteString
324 -> Parser B.ByteString
324 -> Parser B.ByteString
325−stringTransform f s = takeWith (B.length s) ((==s) . f)
325+stringTransform f s = takeWith (B.length s) ((==f s) . f)
326{-# INLINE stringTransform #-}
326{-# INLINE stringTransform #-}
327
327
328-- | Skip past input for as long as the predicate returns 'True'.
328-- | Skip past input for as long as the predicate returns 'True'.