module Data.Aviation.Casr.Logbook.DayNight (
DayNight(..)
) where
import Data.Aviation.Casr.Logbook.Printer.Markdown
import Data.Aviation.Casr.Logbook.Printer.Html
data DayNight =
Day
| Night
| DayNight
deriving (Eq, Ord, Show)
instance Markdown DayNight where
markdown x =
concat
[
"* Day/Night: **"
, case x of
Day -> "Day"
Night -> "Night"
DayNight -> "Day & Night"
, "**\n"
]
instance Html DayNight where
html x =
concat
[
""
, "Day/Night"
, ""
, ": "
, ""
, case x of
Day -> "Day"
Night -> "Night"
DayNight -> "Day & Night"
, ""
]