{-# LANGUAGE DeriveDataTypeable #-}
module Hcompta.Model.Amount.Conversion where

import Data.Data
import Data.Typeable ()

import qualified Hcompta.Model.Amount.Quantity as Quantity
import           Hcompta.Model.Amount.Quantity (Quantity)
import qualified Hcompta.Model.Amount.Style as Style
import           Hcompta.Model.Amount.Style (Style)
import qualified Hcompta.Model.Amount.Unit as Unit
import           Hcompta.Model.Amount.Unit (Unit)
import qualified Hcompta.Model.Date as Date
import           Hcompta.Model.Date (Date)

data Conversion
 =   Unit  Quantity Unit Style
 |   Total Quantity Unit Style
 deriving (Data, Eq, Ord, Read, Show, Typeable)

data Historical
 =   Historical
 { amount :: (Quantity, Unit, Style)
 , commodity :: Unit
 , date :: Date
 } deriving (Data, Eq, Read, Show, Typeable)

nil :: Maybe Conversion
nil = Nothing