simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-09-18 17:57:11 +03:00
Code Issues Projects Releases Wiki Activity

;lib: clarify journalAddForecast doc (#835)

Browse Source 
[ci skip]
This commit is contained in:
Simon Michael 2019-09-09 13:26:43 -07:00
parent 85d48a6b0e
commit 538e97f3ac
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
hledger/Hledger/Cli/Utils.hs
View File

@ -123,15 +123,16 @@ anonymise j
-- | Generate periodic transactions from all periodic transaction rules in the journal.
-- These transactions are added to the in-memory Journal (but not the on-disk file).
--
-- They start on or after the day following the latest normal transaction in the journal,
-- or today if there are none.
-- They end on or before the specified report end date, or 180 days from today if unspecified.
-- They can start no earlier than: the day following the latest normal
-- transaction in the journal (or today if there are none).
-- They end on or before the specified report end date, or 180 days
-- from today if unspecified.
--
journalAddForecast :: CliOpts -> Journal -> IO Journal
journalAddForecast opts@CliOpts{inputopts_=iopts, reportopts_=ropts} j = do
today <- getCurrentDay
-- "They start on or after the day following the latest normal transaction in the journal, or today if there are none."
-- "They can start no earlier than: the day following the latest normal transaction in the journal (or today if there are none)."
let mjournalend = dbg2 "journalEndDate" $ journalEndDate False j -- ignore secondary dates
forecaststart = dbg2 "forecaststart" $ fromMaybe today mjournalend