lib/Hcompta/Model/Amount/Price.hs

   1 {-# LANGUAGE DeriveDataTypeable #-}
   2 module Hcompta.Model.Amount.Price
   3  ( module Hcompta.Model.Amount.Price
   4  , module Historical
   5  , T
   6  ) where
   7
   8 import Data.Data
   9 import Data.Typeable ()
  10
  11 import qualified Hcompta.Model.Amount.Commodity        as Commodity
  12 import qualified Hcompta.Model.Amount.Quantity         as Quantity
  13 import qualified Hcompta.Model.Amount.Style            as Style
  14 import qualified Hcompta.Model.Amount.Price.Historical as Historical
  15
  16 data T
  17  = None
  18  | Unit  Quantity.T Commodity.T Style.T
  19  | Total Quantity.T Commodity.T Style.T
  20  deriving (Data, Eq, Ord, Read, Show, Typeable)