lcc/Hcompta/LCC/Compta.hs

   1 module Hcompta.LCC.Compta where
   2
   3 import Data.Eq (Eq)
   4 import Data.Map.Strict (Map)
   5 import Text.Show (Show)
   6
   7 import Language.Symantic
   8 import Hcompta.LCC.Amount
   9 import Hcompta.LCC.Chart
  10 import Hcompta.LCC.Journal
  11 import Hcompta.LCC.Posting
  12 import Hcompta.LCC.Transaction
  13 import Hcompta.LCC.Grammar (Terms)
  14
  15 -- * Type 'Compta'
  16 data Compta src ss
  17  =   Compta
  18  {   compta_chart         :: Chart
  19  ,   compta_journals      :: Journals (Map Date [Transaction])
  20  ,   compta_modules       :: Modules src ss
  21  ,   compta_style_amounts :: Style_Amounts
  22  ,   compta_terms         :: Terms
  23  -- ,   compta_code  :: Map Name Text
  24  } deriving (Eq, Show)