lib/Hcompta/Journal.hs

   1 {-# LANGUAGE FlexibleContexts #-}
   2 {-# LANGUAGE FlexibleInstances #-}
   3 {-# LANGUAGE MultiParamTypeClasses #-}
   4 {-# LANGUAGE TypeFamilies #-}
   5 {-# LANGUAGE UndecidableSuperClasses #-}
   6 {-# OPTIONS_GHC -fno-warn-orphans #-}
   7 module Hcompta.Journal where
   8
   9 import           Control.DeepSeq (NFData(..))
  10 import           Data.Foldable (Foldable(..))
  11 import           Data.Functor (Functor(..))
  12 import           Data.Data
  13 import           Data.Typeable ()
  14 import           Data.Map.Strict (Map)
  15 import qualified Data.Map.Strict as Map
  16 import           Data.Monoid (Monoid(..))
  17 import           Prelude (($), Eq(..), Show(..), flip)
  18 import           Data.Proxy (Proxy(..))
  19
  20 import           Hcompta.Date (Date)
  21 import           Hcompta.Lib.Consable (Consable(..))
  22 import           Hcompta.Transaction
  23 import           Hcompta.Has
  24
  25 -- * Class 'Journal'
  26 class
  27  ( HasI Transactions j
  28  ) => Journal j
  29
  30 _Journal :: Proxy Journal
  31 _Journal = Proxy