From fbd28be6cb35b2e01ca38c1c081ae48af1da89a4 Mon Sep 17 00:00:00 2001 From: Dmitry Astapov Date: Fri, 17 Nov 2017 00:29:13 +0000 Subject: [PATCH] Allow hledger-budget to generate transactions past the end date of the last real transaction if -b/-e are supplied --- bin/hledger-budget.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/bin/hledger-budget.hs b/bin/hledger-budget.hs index 9794183f7..cf599787a 100755 --- a/bin/hledger-budget.hs +++ b/bin/hledger-budget.hs @@ -196,7 +196,7 @@ budgetWrapper f opts' j = do let modifier = originalTransaction . foldr (flip (.) . runModifierTransaction') id mtxns runModifierTransaction' = fmap txnTieKnot . runModifierTransaction Any mtxns = jmodifiertxns j - dates = jdatespan j + dates = spanUnion (jdatespan j) (periodAsDateSpan $ period_ $ reportopts_ opts') ts' = map modifier $ jtxns j ts'' | boolopt "no-offset" $ rawopts_ opts' = ts' | otherwise= [makeBudget t | pt <- jperiodictxns j, t <- runPeriodicTransaction pt dates] ++ ts'