casr-logbook-0.0.7: src/Data/Aviation/Casr/Logbook/DOB.hs

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) =
    "<span class=\"heading dobheading\">Date of Birth: </span><span class=\"dobinfo\">" ++ html s ++ "</span>"