lib/Hcompta/Chart.hs

   1 {-# LANGUAGE FlexibleContexts #-}
   2 {-# LANGUAGE TypeFamilies #-}
   3 module Hcompta.Chart where
   4
   5 import Data.Data
   6 import Data.Typeable
   7 import Text.Show (Show(..))
   8
   9 import Hcompta.Account
  10
  11 class Chart c where
  12         type Chart_Account c
  13         chart_account_tags      :: c -> Chart_Account c -> Account_Tags (Chart_Account c)
  14         chart_account_at_anchor :: c -> Account_Anchor (Chart_Account c) -> Chart_Account c