Files
RosettaHaskellCompiler/resources/Enums/haskellEnum2.hs
2022-01-12 14:41:28 +02:00

14 lines
245 B
Haskell

{-The enumerated values to specified the period, e.g. day, week.-}
data EnumWithoutDisplay =
{-Day-}
D
{-Month-}
| M
{-Year-}
| Y
instance Show EnumWithoutDisplay where
show D = "D"
show M = "M"
show Y = "Y"