make groupByDateSpan return data when first period has unbounded begin

simonmichael · Aug 25, 2023 · 97943b2 · 97943b2
1 parent c20ebae
commit 97943b2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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