mirror of
https://github.com/simonmichael/hledger.git
synced 2024-09-20 02:37:12 +03:00
parent
85d48a6b0e
commit
538e97f3ac
@ -123,15 +123,16 @@ anonymise j
|
|||||||
-- | Generate periodic transactions from all periodic transaction rules in the journal.
|
-- | 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).
|
-- 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,
|
-- They can start no earlier than: the day following the latest normal
|
||||||
-- or today if there are none.
|
-- 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 end on or before the specified report end date, or 180 days
|
||||||
|
-- from today if unspecified.
|
||||||
--
|
--
|
||||||
journalAddForecast :: CliOpts -> Journal -> IO Journal
|
journalAddForecast :: CliOpts -> Journal -> IO Journal
|
||||||
journalAddForecast opts@CliOpts{inputopts_=iopts, reportopts_=ropts} j = do
|
journalAddForecast opts@CliOpts{inputopts_=iopts, reportopts_=ropts} j = do
|
||||||
today <- getCurrentDay
|
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
|
let mjournalend = dbg2 "journalEndDate" $ journalEndDate False j -- ignore secondary dates
|
||||||
forecaststart = dbg2 "forecaststart" $ fromMaybe today mjournalend
|
forecaststart = dbg2 "forecaststart" $ fromMaybe today mjournalend
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user