module Data.Aviation.Casr.Logbook.PiC ( PiC(..) ) where import Data.Aviation.Casr.Logbook.Printer.Markdown import Data.Aviation.Casr.Logbook.Printer.Html import Data.String newtype PiC = PiC String deriving (Eq, Ord, Show) instance IsString PiC where fromString = PiC instance Markdown PiC where markdown (PiC s) = "* Pilot in Command: **" ++ markdown s ++ "**\n" instance Html PiC where html (PiC s) = concat [ "<span class=\"heading picheading\">" , "Pilot in Command" , "</span>" , ": " , "<span class=\"info picinfo\">" , html s , "</span>" ]