From 63d41b30db8f1021a4afe6188f8998e12cb8758b Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Sat, 21 Oct 2023 10:22:44 +0100 Subject: [PATCH] ;doc: haddock, comment fixes --- hledger-lib/Hledger/Data/Journal.hs | 2 +- hledger-lib/Hledger/Read/Common.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/hledger-lib/Hledger/Data/Journal.hs b/hledger-lib/Hledger/Data/Journal.hs index bd79bbb91..a6a9e5229 100644 --- a/hledger-lib/Hledger/Data/Journal.hs +++ b/hledger-lib/Hledger/Data/Journal.hs @@ -795,7 +795,7 @@ journalModifyTransactions verbosetags d j = Left err -> Left err -- | Apply this journal's commodity display styles to all of its amounts. --- This does soft rounding (adding/removing decimal zeros, but not losing significant decimal digits); +-- This does no display rounding, keeping decimal digits as they were; -- it is suitable for an early cleanup pass before calculations. -- Reports may want to do additional rounding/styling at render time. -- This can return an error message eg if inconsistent number formats are found. diff --git a/hledger-lib/Hledger/Read/Common.hs b/hledger-lib/Hledger/Read/Common.hs index 96cb55742..54e19ef23 100644 --- a/hledger-lib/Hledger/Read/Common.hs +++ b/hledger-lib/Hledger/Read/Common.hs @@ -335,7 +335,7 @@ journalFinalise iopts@InputOpts{..} f txt pj = do -- >>= \j -> deepseq (concatMap (T.unpack.showTransaction).jtxns $ j) (return j) >>= journalMarkRedundantCosts -- Mark redundant costs, to help journalBalanceTransactions ignore them >>= journalBalanceTransactions balancingopts_ -- infer balance assignments and missing amounts and maybe check balance assertions. - >>= journalInferCommodityStyles -- infer commodity styles once more now that all posting amounts are present (XXX or journalApplyCommodityStyles ?) + >>= journalInferCommodityStyles -- infer commodity styles once more now that all posting amounts are present (XXX or journalStyleAmounts ?) -- >>= Right . dbg0With (pshow.journalCommodityStyles) >>= (if infer_costs_ then journalInferCostsFromEquity else pure) -- Maybe infer costs from equity postings where possible <&> (if infer_equity_ then journalInferEquityFromCosts verbose_tags_ else id) -- Maybe infer equity postings from costs where possible