lib/Hcompta/Model/Account.hs

   1 module Hcompta.Model.Account
   2  ( module Hcompta.Model.Account
   3  , module Name
   4  ) where
   5
   6 import qualified Hcompta.Model.Amount       as Amount
   7 import qualified Hcompta.Model.Account.Name as Name
   8 import qualified Hcompta.Model.Tag          as Tag
   9
  10 type Name = Name.T
  11
  12 data T
  13  = T
  14  { name :: Name
  15  , ebalance :: Amount.Mixed
  16  , children :: [T]
  17  , numpostings :: Int
  18  , tags :: [Tag.T]
  19  , ibalance :: Amount.Mixed
  20  , parent :: Maybe T
  21  , boring :: Bool
  22  }