module Data.Aviation.Casr.Logbook.Rating(
Rating(..)
, nodayrating
, dayrating
) where
import Control.Lens(makeClassy)
import Data.Eq(Eq)
import Data.Maybe(Maybe(Nothing, Just))
import Data.Ord(Ord)
import Data.String(String)
import Data.Time(Day)
import Prelude(Show)
data Rating =
Rating {
_ratingName :: String
, _ratingAchieved :: Maybe Day
} deriving (Eq, Ord, Show)
makeClassy ''Rating
nodayrating ::
String
-> Rating
nodayrating r =
Rating
r
Nothing
dayrating ::
String
-> Day
-> Rating
dayrating r d =
Rating
r
(Just d)