lib/Hcompta/Model/Amount/Conversion.hs

   1 {-# LANGUAGE DeriveDataTypeable #-}
   2 module Hcompta.Model.Amount.Conversion where
   3
   4 import Data.Data
   5 import Data.Typeable ()
   6
   7 import qualified Hcompta.Model.Amount.Quantity as Quantity
   8 import           Hcompta.Model.Amount.Quantity (Quantity)
   9 import qualified Hcompta.Model.Amount.Style as Style
  10 import           Hcompta.Model.Amount.Style (Style)
  11 import qualified Hcompta.Model.Amount.Unit as Unit
  12 import           Hcompta.Model.Amount.Unit (Unit)
  13 import qualified Hcompta.Model.Date as Date
  14 import           Hcompta.Model.Date (Date)
  15
  16 data Conversion
  17  =   Unit  Quantity Unit Style
  18  |   Total Quantity Unit Style
  19  deriving (Data, Eq, Ord, Read, Show, Typeable)
  20
  21 data Historical
  22  =   Historical
  23  { amount :: (Quantity, Unit, Style)
  24  , commodity :: Unit
  25  , date :: Date
  26  } deriving (Data, Eq, Read, Show, Typeable)
  27
  28 nil :: Maybe Conversion
  29 nil = Nothing