{-# LANGUAGE DeriveDataTypeable #-}
{-# OPTIONS_GHC -fno-warn-orphans #-}
module Hcompta.Model.Journal where

import           Data.Data
import qualified Data.Map.Strict as Data.Map
import           Data.Typeable ()

import qualified Hcompta.Model.Transaction as Transaction

data Journal
 =   Journal
 { transactions :: Transaction.By_Date
 } deriving (Data, Eq, Read, Show, Typeable)

nil :: Journal
nil =
	Journal
	 { transactions = Data.Map.empty
	 }