{-# LANGUAGE DeriveDataTypeable #-}
module Hcompta.Model.Amount.Price
 ( module Hcompta.Model.Amount.Price
 , module Historical
 , T
 ) where

import Data.Data
import Data.Typeable ()

import qualified Hcompta.Model.Amount.Commodity        as Commodity
import qualified Hcompta.Model.Amount.Quantity         as Quantity
import qualified Hcompta.Model.Amount.Style            as Style
import qualified Hcompta.Model.Amount.Price.Historical as Historical

data T
 = None
 | Unit  Quantity.T Commodity.T Style.T
 | Total Quantity.T Commodity.T Style.T
 deriving (Data, Eq, Ord, Read, Show, Typeable)