Policies.hs

{-# OPTIONS_GHC -Wall #-}

{- | The limits that the examples set in their operations manuals, from which
each example changes the fields it sets differently.
-}
module ReOC.Example.Policies (
  examplePolicies,
) where

import Control.Lens ((&), (?~))
import ReOC.Model

-- | Limits common to the examples.
examplePolicies :: UnfilledPolicies
examplePolicies =
  mkUnfilledPolicies
    & recencyFlights ?~ 3
    & recencyDays ?~ 90
    & refresherMonths ?~ 12
    & alcoholHours ?~ 8
    & restHours ?~ 10
    & dutyHours ?~ 10
    & inspectionMonths ?~ 3
    & inspectionHours ?~ 25
    & batteryReserve ?~ 30
    & backupFrequency ?~ Weekly
    & independentReviewYears ?~ 2
    & checkingMonths ?~ 12