From e832c344c10ea46d76708946da2cf91ec71b6389 Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Sat, 20 May 2023 17:29:06 -1000 Subject: [PATCH] dev: comment --- hledger-lib/Hledger/Read/Common.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/hledger-lib/Hledger/Read/Common.hs b/hledger-lib/Hledger/Read/Common.hs index b466f4844..851b42723 100644 --- a/hledger-lib/Hledger/Read/Common.hs +++ b/hledger-lib/Hledger/Read/Common.hs @@ -328,7 +328,9 @@ journalFinalise iopts@InputOpts{..} f txt pj = do >>= (if auto_ && not (null $ jtxnmodifiers pj) then journalAddAutoPostings verbose_tags_ _ioDay balancingopts_ -- Add auto postings if enabled, and account tags if needed else pure) - -- >>= Right . dbg0With (concatMap (T.unpack.showTransaction).jtxns) -- debug + -- XXX how to force debug output here ? + -- >>= Right . dbg0With (concatMap (T.unpack.showTransaction).jtxns) + -- >>= \j -> deepseq (concatMap (T.unpack.showTransaction).jtxns $ j) (return j) >>= journalMarkRedundantCosts -- Mark redundant costs, to help journalBalanceTransactions ignore them >>= journalBalanceTransactions balancingopts_ -- Balance all transactions and maybe check balance assertions. >>= (if infer_costs_ then journalInferCostsFromEquity else pure) -- Maybe infer costs from equity postings where possible