From 97943b206c240c866eb2e4d51b19c0d5c3e997f0 Mon Sep 17 00:00:00 2001 From: Jay Neubrand Date: Fri, 25 Aug 2023 13:13:02 +0200 Subject: [PATCH] make groupByDateSpan return data when first period has unbounded begin --- hledger-lib/Hledger/Data/Dates.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hledger-lib/Hledger/Data/Dates.hs b/hledger-lib/Hledger/Data/Dates.hs index ea7e1eb1f..05943ed1e 100644 --- a/hledger-lib/Hledger/Data/Dates.hs +++ b/hledger-lib/Hledger/Data/Dates.hs @@ -317,7 +317,7 @@ groupByDateSpan showempty date colspans = groupByCols (c:cs) ps = (c, map snd matches) : groupByCols cs later where (matches, later) = span ((spanEnd c >) . Just . fst) ps - beforeStart = maybe (const True) (>) $ spanStart =<< headMay colspans + beforeStart = maybe (const False) (>) $ spanStart =<< headMay colspans -- | Calculate the intersection of a number of datespans. spansIntersect [] = nulldatespan