module Data.Aviation.Casr.Logbook.Meta.AircraftFlightExpense(
AircraftFlightExpense(ExpenseAircraftUsage, ExpenseAircraftLanding)
, AsAircraftFlightExpense(..)
) where
import Control.Lens(makeClassyPrisms)
import Data.Aviation.Casr.Logbook.Meta.AircraftLandingExpense
import Data.Aviation.Casr.Logbook.Meta.AircraftUsageExpense
import Data.Eq(Eq)
import Data.Ord(Ord)
import Prelude(Show)
data AircraftFlightExpense =
ExpenseAircraftUsage AircraftUsageExpense
| ExpenseAircraftLanding AircraftLandingExpense
deriving (Eq, Ord, Show)
makeClassyPrisms ''AircraftFlightExpense