lib/Hcompta/Model/Amount/Price/Historical.hs

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