module Hcompta.Chart where

import Data.Data
import Data.Typeable
import Text.Show (Show(..))

import Hcompta.Account

class Chart c where
	type Chart_Account c
	chart_account_tags :: c -> Chart_Account c -> Account_Tags (Chart_Account c)
	chart_account_ref  :: c -> Account_Anchor (Chart_Account c) -> Chart_Account c