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

import Data.Data
import Data.Typeable ()

import qualified Hcompta.Model.Amount as Amount ()
import           Hcompta.Model.Amount (Amount, Quantity, Style, 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 :: Amount
 , commodity :: Unit
 , date :: Date
 } deriving (Data, Read, Show, Typeable)

nil :: Maybe Conversion
nil = Nothing