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

refactor: clarify, note issues (#893)

Browse Source
This commit is contained in:
Simon Michael 2019-02-01 15:30:57 -08:00
parent 6e4ba1106f
commit d1f122f15e
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
hledger-lib/Hledger/Read/Common.hs
View File

@ -255,21 +255,23 @@ parseAndFinaliseJournal parser iopts f txt = do
-- the options for checking assertions. -- the options for checking assertions.
let fj = if auto_ iopts && (not . null . jtxnmodifiers) pj let fj = if auto_ iopts && (not . null . jtxnmodifiers) pj
-- with transaction modifiers -- transaction modifiers are active
then then
-- first pass -- first pass, doing most of the work
journalModifyTransactions <$> (
(journalBalanceTransactions False $ (journalModifyTransactions <$>) $ -- add auto postings after balancing ? #893b fails
journalBalanceTransactions False $
-- journalModifyTransactions <$> -- add auto postings before balancing ? probably #893a, #928, #938 fail
journalReverse $ journalReverse $
journalAddFile (f, txt) $ journalAddFile (f, txt) $
journalApplyCommodityStyles pj) journalApplyCommodityStyles pj)
-- second pass -- second pass, checking balance assertions
>>= (\j -> >>= (\j ->
journalBalanceTransactions (not $ ignore_assertions_ iopts) $ journalBalanceTransactions (not $ ignore_assertions_ iopts) $
journalSetLastReadTime t $ journalSetLastReadTime t $
j) j)
-- without transaction modifiers -- transaction modifiers are not active
else journalBalanceTransactions (not $ ignore_assertions_ iopts) $ else journalBalanceTransactions (not $ ignore_assertions_ iopts) $
journalReverse $ journalReverse $
journalAddFile (f, txt) $ journalAddFile (f, txt) $