{-| Match anything other than the given characters

>>> match (noneOf "2a") "1"
"1"
>>> match (noneOf "1a") "1"
""
-}
noneOf :: [Char] -> Pattern Char
noneOf cs = satisfy (`notElem` cs)
noneOf :: [Char] -> Pattern Char
noneOf cs = satisfy (`notElem` cs)
noneOf cs = satisfy (`notElem` cs)