{-# 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
-}