Data.Digit.DEe

Documentation

type DEe a = (DE a, De a)

parseEe :: (DEe d, CharParsing p) => p d

>>> parse (parseEe <* eof) "test" "E" :: Either ParseError Digit
Right E

>>> parse parseEe "test" "Exyz" :: Either ParseError Digit
Right E

>>> parse (parseEe <* eof) "test" "e" :: Either ParseError Digit
Right e

>>> parse parseEe "test" "exyz" :: Either ParseError Digit
Right e

>>> isn't _Right (parse parseEe "test" "xyz" :: Either ParseError Digit)
True

\c -> (c `notElem` "Ee") ==> isn't _Right (parse parseEe "test" [c] :: Either ParseError Digit)