module Data.Digit.Enum
(
enumBinaryNoZero
, enumBinary
, enumOctalNoZero
, enumOctal
, enumDecimalNoZero
, enumDecimal
, enumHexadecimalNoZero
, enumHexadecimal
, enumHEXADECIMALNoZero
, enumHEXADECIMAL
)
where
import Control.Lens.Review ((#))
import Data.Digit.Binary
import Data.Digit.Decimal
import Data.Digit.Hexadecimal.LowerCase
import Data.Digit.Hexadecimal.UpperCase
import Data.Digit.Octal
enumBinaryNoZero :: BinaryNoZero d => [d]
enumBinaryNoZero :: forall d. BinaryNoZero d => [d]
enumBinaryNoZero = [forall d. D1 d => Prism' d ()
d1 forall t b. AReview t b -> b -> t
# ()]
enumBinary :: Binary d => [d]
enumBinary :: forall d. Binary d => [d]
enumBinary = [forall d. D0 d => Prism' d ()
d0 forall t b. AReview t b -> b -> t
# (), forall d. D1 d => Prism' d ()
d1 forall t b. AReview t b -> b -> t
# ()]
enumOctalNoZero :: OctalNoZero d => [d]
enumOctalNoZero :: forall d. OctalNoZero d => [d]
enumOctalNoZero =
[ forall d. D1 d => Prism' d ()
d1 forall t b. AReview t b -> b -> t
# ()
, forall d. D2 d => Prism' d ()
d2 forall t b. AReview t b -> b -> t
# ()
, forall d. D3 d => Prism' d ()
d3 forall t b. AReview t b -> b -> t
# ()
, forall d. D4 d => Prism' d ()
d4 forall t b. AReview t b -> b -> t
# ()
, forall d. D5 d => Prism' d ()
d5 forall t b. AReview t b -> b -> t
# ()
, forall d. D6 d => Prism' d ()
d6 forall t b. AReview t b -> b -> t
# ()
, forall d. D7 d => Prism' d ()
d7 forall t b. AReview t b -> b -> t
# ()
]
enumOctal :: Octal d => [d]
enumOctal :: forall d. Octal d => [d]
enumOctal =
[ forall d. D0 d => Prism' d ()
d0 forall t b. AReview t b -> b -> t
# ()
, forall d. D1 d => Prism' d ()
d1 forall t b. AReview t b -> b -> t
# ()
, forall d. D2 d => Prism' d ()
d2 forall t b. AReview t b -> b -> t
# ()
, forall d. D3 d => Prism' d ()
d3 forall t b. AReview t b -> b -> t
# ()
, forall d. D4 d => Prism' d ()
d4 forall t b. AReview t b -> b -> t
# ()
, forall d. D5 d => Prism' d ()
d5 forall t b. AReview t b -> b -> t
# ()
, forall d. D6 d => Prism' d ()
d6 forall t b. AReview t b -> b -> t
# ()
, forall d. D7 d => Prism' d ()
d7 forall t b. AReview t b -> b -> t
# ()
]
enumDecimalNoZero :: DecimalNoZero d => [d]
enumDecimalNoZero :: forall d. DecimalNoZero d => [d]
enumDecimalNoZero =
[ forall d. D1 d => Prism' d ()
d1 forall t b. AReview t b -> b -> t
# ()
, forall d. D2 d => Prism' d ()
d2 forall t b. AReview t b -> b -> t
# ()
, forall d. D3 d => Prism' d ()
d3 forall t b. AReview t b -> b -> t
# ()
, forall d. D4 d => Prism' d ()
d4 forall t b. AReview t b -> b -> t
# ()
, forall d. D5 d => Prism' d ()
d5 forall t b. AReview t b -> b -> t
# ()
, forall d. D6 d => Prism' d ()
d6 forall t b. AReview t b -> b -> t
# ()
, forall d. D7 d => Prism' d ()
d7 forall t b. AReview t b -> b -> t
# ()
, forall d. D8 d => Prism' d ()
d8 forall t b. AReview t b -> b -> t
# ()
, forall d. D9 d => Prism' d ()
d9 forall t b. AReview t b -> b -> t
# ()
]
enumDecimal :: Decimal d => [d]
enumDecimal :: forall d. Decimal d => [d]
enumDecimal =
[ forall d. D0 d => Prism' d ()
d0 forall t b. AReview t b -> b -> t
# ()
, forall d. D1 d => Prism' d ()
d1 forall t b. AReview t b -> b -> t
# ()
, forall d. D2 d => Prism' d ()
d2 forall t b. AReview t b -> b -> t
# ()
, forall d. D3 d => Prism' d ()
d3 forall t b. AReview t b -> b -> t
# ()
, forall d. D4 d => Prism' d ()
d4 forall t b. AReview t b -> b -> t
# ()
, forall d. D5 d => Prism' d ()
d5 forall t b. AReview t b -> b -> t
# ()
, forall d. D6 d => Prism' d ()
d6 forall t b. AReview t b -> b -> t
# ()
, forall d. D7 d => Prism' d ()
d7 forall t b. AReview t b -> b -> t
# ()
, forall d. D8 d => Prism' d ()
d8 forall t b. AReview t b -> b -> t
# ()
, forall d. D9 d => Prism' d ()
d9 forall t b. AReview t b -> b -> t
# ()
]
enumHexadecimalNoZero :: HexadecimalNoZero d => [d]
enumHexadecimalNoZero :: forall d. HexadecimalNoZero d => [d]
enumHexadecimalNoZero =
[ forall d. D1 d => Prism' d ()
d1 forall t b. AReview t b -> b -> t
# ()
, forall d. D2 d => Prism' d ()
d2 forall t b. AReview t b -> b -> t
# ()
, forall d. D3 d => Prism' d ()
d3 forall t b. AReview t b -> b -> t
# ()
, forall d. D4 d => Prism' d ()
d4 forall t b. AReview t b -> b -> t
# ()
, forall d. D5 d => Prism' d ()
d5 forall t b. AReview t b -> b -> t
# ()
, forall d. D6 d => Prism' d ()
d6 forall t b. AReview t b -> b -> t
# ()
, forall d. D7 d => Prism' d ()
d7 forall t b. AReview t b -> b -> t
# ()
, forall d. D8 d => Prism' d ()
d8 forall t b. AReview t b -> b -> t
# ()
, forall d. D9 d => Prism' d ()
d9 forall t b. AReview t b -> b -> t
# ()
, forall d. Da d => Prism' d ()
da forall t b. AReview t b -> b -> t
# ()
, forall d. Db d => Prism' d ()
db forall t b. AReview t b -> b -> t
# ()
, forall d. Dc d => Prism' d ()
dc forall t b. AReview t b -> b -> t
# ()
, forall d. Dd d => Prism' d ()
dd forall t b. AReview t b -> b -> t
# ()
, forall d. De d => Prism' d ()
de forall t b. AReview t b -> b -> t
# ()
, forall d. Df d => Prism' d ()
df forall t b. AReview t b -> b -> t
# ()
]
enumHexadecimal :: Hexadecimal d => [d]
enumHexadecimal :: forall d. Hexadecimal d => [d]
enumHexadecimal =
[ forall d. D0 d => Prism' d ()
d0 forall t b. AReview t b -> b -> t
# ()
, forall d. D1 d => Prism' d ()
d1 forall t b. AReview t b -> b -> t
# ()
, forall d. D2 d => Prism' d ()
d2 forall t b. AReview t b -> b -> t
# ()
, forall d. D3 d => Prism' d ()
d3 forall t b. AReview t b -> b -> t
# ()
, forall d. D4 d => Prism' d ()
d4 forall t b. AReview t b -> b -> t
# ()
, forall d. D5 d => Prism' d ()
d5 forall t b. AReview t b -> b -> t
# ()
, forall d. D6 d => Prism' d ()
d6 forall t b. AReview t b -> b -> t
# ()
, forall d. D7 d => Prism' d ()
d7 forall t b. AReview t b -> b -> t
# ()
, forall d. D8 d => Prism' d ()
d8 forall t b. AReview t b -> b -> t
# ()
, forall d. D9 d => Prism' d ()
d9 forall t b. AReview t b -> b -> t
# ()
, forall d. Da d => Prism' d ()
da forall t b. AReview t b -> b -> t
# ()
, forall d. Db d => Prism' d ()
db forall t b. AReview t b -> b -> t
# ()
, forall d. Dc d => Prism' d ()
dc forall t b. AReview t b -> b -> t
# ()
, forall d. Dd d => Prism' d ()
dd forall t b. AReview t b -> b -> t
# ()
, forall d. De d => Prism' d ()
de forall t b. AReview t b -> b -> t
# ()
, forall d. Df d => Prism' d ()
df forall t b. AReview t b -> b -> t
# ()
]
enumHEXADECIMALNoZero :: HEXADECIMALNoZero d => [d]
enumHEXADECIMALNoZero :: forall d. HEXADECIMALNoZero d => [d]
enumHEXADECIMALNoZero =
[ forall d. D1 d => Prism' d ()
d1 forall t b. AReview t b -> b -> t
# ()
, forall d. D2 d => Prism' d ()
d2 forall t b. AReview t b -> b -> t
# ()
, forall d. D3 d => Prism' d ()
d3 forall t b. AReview t b -> b -> t
# ()
, forall d. D4 d => Prism' d ()
d4 forall t b. AReview t b -> b -> t
# ()
, forall d. D5 d => Prism' d ()
d5 forall t b. AReview t b -> b -> t
# ()
, forall d. D6 d => Prism' d ()
d6 forall t b. AReview t b -> b -> t
# ()
, forall d. D7 d => Prism' d ()
d7 forall t b. AReview t b -> b -> t
# ()
, forall d. D8 d => Prism' d ()
d8 forall t b. AReview t b -> b -> t
# ()
, forall d. D9 d => Prism' d ()
d9 forall t b. AReview t b -> b -> t
# ()
, forall d. DA d => Prism' d ()
dA forall t b. AReview t b -> b -> t
# ()
, forall d. DB d => Prism' d ()
dB forall t b. AReview t b -> b -> t
# ()
, forall d. DC d => Prism' d ()
dC forall t b. AReview t b -> b -> t
# ()
, forall d. DD d => Prism' d ()
dD forall t b. AReview t b -> b -> t
# ()
, forall d. DE d => Prism' d ()
dE forall t b. AReview t b -> b -> t
# ()
, forall d. DF d => Prism' d ()
dF forall t b. AReview t b -> b -> t
# ()
]
enumHEXADECIMAL :: HEXADECIMAL d => [d]
enumHEXADECIMAL :: forall d. HEXADECIMAL d => [d]
enumHEXADECIMAL =
[ forall d. D0 d => Prism' d ()
d0 forall t b. AReview t b -> b -> t
# ()
, forall d. D1 d => Prism' d ()
d1 forall t b. AReview t b -> b -> t
# ()
, forall d. D2 d => Prism' d ()
d2 forall t b. AReview t b -> b -> t
# ()
, forall d. D3 d => Prism' d ()
d3 forall t b. AReview t b -> b -> t
# ()
, forall d. D4 d => Prism' d ()
d4 forall t b. AReview t b -> b -> t
# ()
, forall d. D5 d => Prism' d ()
d5 forall t b. AReview t b -> b -> t
# ()
, forall d. D6 d => Prism' d ()
d6 forall t b. AReview t b -> b -> t
# ()
, forall d. D7 d => Prism' d ()
d7 forall t b. AReview t b -> b -> t
# ()
, forall d. D8 d => Prism' d ()
d8 forall t b. AReview t b -> b -> t
# ()
, forall d. D9 d => Prism' d ()
d9 forall t b. AReview t b -> b -> t
# ()
, forall d. DA d => Prism' d ()
dA forall t b. AReview t b -> b -> t
# ()
, forall d. DB d => Prism' d ()
dB forall t b. AReview t b -> b -> t
# ()
, forall d. DC d => Prism' d ()
dC forall t b. AReview t b -> b -> t
# ()
, forall d. DD d => Prism' d ()
dD forall t b. AReview t b -> b -> t
# ()
, forall d. DE d => Prism' d ()
dE forall t b. AReview t b -> b -> t
# ()
, forall d. DF d => Prism' d ()
dF forall t b. AReview t b -> b -> t
# ()
]