{-| Match any character except the given one

>>> match (notChar '2') "1"
"1"
>>> match (notChar '1') "1"
""
-}
notChar :: Char -> Pattern Char
notChar c = satisfy (/= c)
notChar :: Char -> Pattern Char
notChar c = satisfy (/= c)
notChar c = satisfy (/= c)