module Data.Aviation.Casr.Logbook.DOB (
DOB(..)
) where
import Data.Aviation.Casr.Logbook.Printer.Markdown
import Data.Aviation.Casr.Logbook.Printer.Html
import Data.String
newtype DOB =
DOB
String
deriving (Eq, Ord, Show)
instance IsString DOB where
fromString =
DOB
instance Markdown DOB where
markdown (DOB s) =
"* Date of Birth: **`" ++ markdown s ++ "`**\n"
instance Html DOB where
html (DOB s) =
"Date of Birth: " ++ html s ++ ""