{-# LANGUAGE DeriveDataTypeable #-}
module Hcompta.Model.Amount.Price.Historical
 ( module Hcompta.Model.Amount.Price.Historical
 ) 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.Date             as Date

data T
 = T
 { date :: Date.Day
 , commodity :: Commodity.T
 , amount :: (Quantity.T, Commodity.T, Style.T)
 } deriving (Data, Eq, Read, Show, Typeable)