lib/Hcompta/Model/Posting.hs

   1 {-# LANGUAGE DeriveDataTypeable #-}
   2 module Hcompta.Model.Posting
   3  ( module Hcompta.Model.Posting
   4  ) where
   5
   6 import Data.Data
   7 import Data.Typeable ()
   8
   9 import qualified Hcompta.Model.Account     as Account
  10 import qualified Hcompta.Model.Amount      as Amount
  11 import qualified Hcompta.Model.Date        as Date
  12 import qualified Hcompta.Model.Tag         as Tag
  13
  14 data T
  15  = T
  16  { date :: Maybe Date.Day
  17  , date2 :: Maybe Date.Day
  18  , status :: Bool
  19  , account :: Account.Name
  20  , amount :: Amount.Mixed
  21  , comment :: String
  22  , type_ :: Type
  23  , tags :: [Tag.T]
  24  , balance_expected :: Maybe Amount.Mixed
  25  } deriving (Data, Eq, Read, Show, Typeable)
  26
  27 data Type
  28  = Regular
  29  | Virtual
  30  | VirtualBalanced
  31  deriving (Data, Eq, Read, Show, Typeable)