module Data.Aviation.Casr.Logbook.Log (
Log(..)
) where
import Data.Aviation.Casr.Logbook.ARN
import Data.Aviation.Casr.Logbook.DOB
import Data.Aviation.Casr.Logbook.Entries
import Data.Aviation.Casr.Logbook.Name
import Data.Aviation.Casr.Logbook.Printer.Markdown
import Data.Aviation.Casr.Logbook.Printer.Html
import Data.Aviation.Casr.Logbook.Totals
data Log =
Log
Name
DOB
ARN
Entries
deriving (Eq, Ord, Show)
instance Markdown Log where
markdown (Log (Name name') dob arn entries) =
concat
[
"# Pilot Personal Log Book\n"
, "### Civil Aviation Safety Regulation 1998 (61.345) [*austlii.edu.au*](http://www.austlii.edu.au/au/legis/cth/consol_reg/casr1998333/s61.345.html)\n\n"
, "* "
, markdown name'
, "\n"
, markdown dob
, markdown arn
, "\n----\n\n"
, markdown (totals entries)
, "\n----\n\n"
, markdown entries
]
instance Html Log where
html (Log name@(Name name') dob arn@(ARN arn') entries) =
concat
[
""
, ""
, ""
, ""
, "Pilot Personal Log Book — "
, html name'
, " ("
, html arn'
, ")"
, ""
, ""
, ""
, ""
, ""
, ""
, ""
, ""
, ""
, "
Pilot Personal Log Book
"
, ""
, ""
, "
Civil Aviation Safety Regulation 1998 (61.345) austlii.edu.au
"
, "
"
, "
"
, "- "
, html name
, "
"
, "- "
, html dob
, "
"
, "- "
, html arn
, "
"
, "
"
, "
"
, html (totals entries)
, "
"
, ""
, html entries
, "
"
, ""
, ""
]