module Data.Digit.Digit(
Digit(..)
) where
import Papa
data Digit =
Digit0
| Digit1
| Digit2
| Digit3
| Digit4
| Digit5
| Digit6
| Digit7
| Digit8
| Digit9
| Digita
| Digitb
| Digitc
| Digitd
| Digite
| Digitf
| DigitA
| DigitB
| DigitC
| DigitD
| DigitE
| DigitF
deriving (Eq, Ord)
instance Show Digit where
show Digit0 =
"0"
show Digit1 =
"1"
show Digit2 =
"2"
show Digit3 =
"3"
show Digit4 =
"4"
show Digit5 =
"5"
show Digit6 =
"6"
show Digit7 =
"7"
show Digit8 =
"8"
show Digit9 =
"9"
show Digita =
"a"
show Digitb =
"b"
show Digitc =
"c"
show Digitd =
"d"
show Digite =
"e"
show Digitf =
"f"
show DigitA =
"A"
show DigitB =
"B"
show DigitC =
"C"
show DigitD =
"D"
show DigitE =
"E"
show DigitF =
"F"