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 qualified Data.Time.Clock       as Time
   7 import qualified Data.Time.Clock.POSIX as Time
   8 import qualified Data.Time.Calendar    as Time
   9 import qualified Data.Time.LocalTime   as Time
  10 import Data.Typeable ()
  11 import System.FilePath
  12
  13 import Hcompta.Model as Model
  14 import Hcompta.Model.Amount as Model.Amount
  15
  16 data Journal
  17  =   Journal
  18  {   unit_styles :: Data.Map.Map Model.Amount.Unit Model.Amount.Style
  19  ,   file :: FilePath
  20  ,   includes :: [Journal]
  21  ,   final_comment_lines :: String
  22  -- , historical_prices :: [Amount.Price.Historical]
  23  ,   last_read_time :: Time.UTCTime
  24  -- , transaction_periodics :: [Transaction.Periodic]
  25  -- , transaction_modifiers :: [Transaction.Modifier]
  26  , transactions :: [Transaction]
  27  } deriving (Data, Eq, Read, Show, Typeable)
  28
  29 null :: Journal
  30 null =
  31         Journal
  32          { unit_styles = Data.Map.empty
  33          , file = ""
  34          , includes = []
  35          , final_comment_lines = ""
  36          , last_read_time = Time.posixSecondsToUTCTime 0
  37          , transactions = []
  38          }