Data.Digit.DBb

Documentation

module Data.Digit.DB

module Data.Digit.Db

type DBb a = (DB a, Db a)

parseBb :: (DBb d, CharParsing p) => p d

>>> parse (parseBb <* eof) "test" "B" :: Either ParseError HeXDigit
Right HeXDigitB

>>> parse parseBb "test" "Bxyz" :: Either ParseError HeXDigit
Right HeXDigitB

>>> parse (parseBb <* eof) "test" "b" :: Either ParseError HeXDigit
Right HeXDigitb

>>> parse parseBb "test" "bxyz" :: Either ParseError HeXDigit
Right HeXDigitb

>>> isn't _Right (parse parseBb "test" "xyz" :: Either ParseError HeXDigit)
True