{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE UndecidableSuperClasses #-}
{-# OPTIONS_GHC -fno-warn-orphans #-}
module Hcompta.Journal where

import           Control.DeepSeq (NFData(..))
import           Data.Foldable (Foldable(..))
import           Data.Functor (Functor(..))
import           Data.Data
import           Data.Typeable ()
import           Data.Map.Strict (Map)
import qualified Data.Map.Strict as Map
import           Data.Monoid (Monoid(..))
import           Prelude (($), Eq(..), Show(..), flip)
import           Data.Proxy (Proxy(..))

import           Hcompta.Date (Date)
import           Hcompta.Lib.Consable (Consable(..))
import           Hcompta.Transaction
import           Hcompta.Has

-- * Class 'Journal'
class
 ( HasI Transactions j
 ) => Journal j

_Journal :: Proxy Journal
_Journal = Proxy