lib/Hcompta/Model/Journal.hs

   1 {-# LANGUAGE DeriveDataTypeable #-}
   2 {-# OPTIONS_GHC -fno-warn-orphans #-}
   3 module Hcompta.Model.Journal where
   4
   5 import           Data.Data
   6 import qualified Data.Map.Strict as Data.Map
   7 import           Data.Typeable ()
   8
   9 import qualified Hcompta.Model.Transaction as Transaction
  10
  11 data Journal
  12  =   Journal
  13  { transactions :: Transaction.By_Date
  14  } deriving (Data, Eq, Read, Show, Typeable)
  15
  16 nil :: Journal
  17 nil =
  18         Journal
  19          { transactions = Data.Map.empty
  20          }
  21