module Hcompta.LCC.Compta where

import Data.Eq (Eq)
import Data.Map.Strict (Map)
import Text.Show (Show)

import Language.Symantic
import Hcompta.LCC.Amount
import Hcompta.LCC.Chart
import Hcompta.LCC.Journal
import Hcompta.LCC.Posting
import Hcompta.LCC.Transaction
import Hcompta.LCC.Grammar (Terms)

-- * Type 'Compta'
data Compta src ss
 =   Compta
 {   compta_chart         :: Chart
 ,   compta_journals      :: Journals (Map Date [Transaction])
 ,   compta_modules       :: Modules src ss
 ,   compta_style_amounts :: Style_Amounts
 ,   compta_terms         :: Terms
 -- ,   compta_code  :: Map Name Text
 } deriving (Eq, Show)