slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

showJournalDebug

Browse Source
This commit is contained in:
Simon Michael 2011-08-02 23:27:41 +00:00
parent 3364d344d1
commit 47a9564bdb
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
hledger-lib/Hledger/Data/Journal.hs
View File

@ -43,6 +43,18 @@ instance Show Journal where
-- ++ (show $ journalTransactions l) -- ++ (show $ journalTransactions l)
where accounts = flatten $ journalAccountNameTree j where accounts = flatten $ journalAccountNameTree j
showJournalDebug j = unlines [
show j
,show (jtxns j)
,show (jmodifiertxns j)
,show (jperiodictxns j)
,show $ open_timelog_entries j
,show $ historical_prices j
,show $ final_comment_lines j
,show $ jContext j
,show $ map fst $ files j
]
nulljournal :: Journal nulljournal :: Journal
nulljournal = Journal { jmodifiertxns = [] nulljournal = Journal { jmodifiertxns = []
, jperiodictxns = [] , jperiodictxns = []