module Data.Aviation.Casr.Logbook.PoB ( PoB(..) , solo , dual ) where import Data.Aviation.Casr.Logbook.Printer.Markdown import Data.Aviation.Casr.Logbook.Printer.Html data PoB = PoB Int deriving (Eq, Ord, Show) solo :: PoB solo = PoB 1 dual :: PoB dual = PoB 2 instance Markdown PoB where markdown (PoB n) = concat [ "* PoB: **`" , case n of 0 -> "unmanned" 1 -> "solo" 2 -> "dual" _ -> markdown n , "`**\n" ] instance Html PoB where html (PoB n) = concat [ "<span class=\"heading pobheading\">" , "PoB" , "</span>" , ": " , "<span class=\"info pobinfo\">" , case n of 0 -> "unmanned" 1 -> "solo" 2 -> "dual" _ -> html n , "</span>" ]