lib/Hcompta/Format/Ledger/Journal.hs

   1 {-# LANGUAGE DeriveDataTypeable #-}
   2 module Hcompta.Format.Ledger.Journal where
   3
   4 import Data.Data
   5 import qualified Data.Map
   6 import           Data.Map (Map)
   7 import qualified Data.Time.Clock       as Time
   8 import qualified Data.Time.Clock.POSIX as Time
   9 import Data.Typeable ()
  10
  11 import Hcompta.Model as Model
  12 import Hcompta.Model.Amount as Amount
  13
  14 data Journal
  15  =   Journal
  16  {   unit_styles :: Map Amount.Unit Amount.Style
  17  ,   file :: FilePath
  18  ,   includes :: [Journal]
  19  ,   final_comment_lines :: String
  20  -- , historical_prices :: [Amount.Price.Historical]
  21  ,   last_read_time :: Time.UTCTime
  22  -- , transaction_periodics :: [Transaction.Periodic]
  23  -- , transaction_modifiers :: [Transaction.Modifier]
  24  , transactions :: [Transaction]
  25  } deriving (Data, Eq, Read, Show, Typeable)
  26
  27 nil :: Journal
  28 nil =
  29         Journal
  30          { unit_styles = Data.Map.empty
  31          , file = ""
  32          , includes = []
  33          , final_comment_lines = ""
  34          , last_read_time = Time.posixSecondsToUTCTime 0
  35          , transactions = []
  36          }