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

make groupByDateSpan return data when first period has unbounded begin

Browse Source
This commit is contained in:
Jay Neubrand 2023-08-25 13:13:02 +02:00 committed by Simon Michael
parent c20ebae26d
commit 97943b206c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hledger-lib/Hledger/Data/Dates.hs
View File

@ -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