{-# LANGUAGE DeriveDataTypeable #-}
module Hcompta.Model.Amount
 ( module Hcompta.Model.Amount
 , module Commodity
 , module Price
 , module Quantity
 , module Style
 ) where

import Data.Data
import Data.Typeable ()

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

data T
 = T
 { commodity :: Commodity.T
 , price :: Price.T
 , quantity :: Quantity.T
 , style :: Style.T
 } deriving (Data, Eq, Ord, Read, Show, Typeable)

type Mixed = [T]