lib/Hcompta/Model/Amount.hs

   1 {-# LANGUAGE DeriveDataTypeable #-}
   2 module Hcompta.Model.Amount
   3  ( module Hcompta.Model.Amount
   4  , module Commodity
   5  , module Price
   6  , module Quantity
   7  , module Style
   8  ) where
   9
  10 import Data.Data
  11 import Data.Typeable ()
  12
  13 import qualified Hcompta.Model.Amount.Commodity as Commodity
  14 import qualified Hcompta.Model.Amount.Price     as Price
  15 import qualified Hcompta.Model.Amount.Quantity  as Quantity
  16 import qualified Hcompta.Model.Amount.Style     as Style
  17
  18 data T
  19  = T
  20  { commodity :: Commodity.T
  21  , price :: Price.T
  22  , quantity :: Quantity.T
  23  , style :: Style.T
  24  } deriving (Data, Eq, Ord, Read, Show, Typeable)
  25
  26 type Mixed = [T]