Fixed that READY timestamps with a later-than-now AFTER timestamp…

… would still show up in the work report.
NorfairKing · May 8, 2024 · 0339c19 · 0339c19
1 parent 643478d
commit 0339c19
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/smos-docs-site/content/unreleased.markdown b/smos-docs-site/content/unreleased.markdown
@@ -2,3 +2,4 @@
 
 * Fixed that casts weren't showing up on the docs site.
 * Fixed that booking would show an error when a quote was used in the organiser name.
+* Fixed that `READY` timestamps with a later-than-now `AFTER` timestamp would still show up in the work report.
diff --git a/smos-report/src/Smos/Report/Work.hs b/smos-report/src/Smos/Report/Work.hs
@@ -226,7 +226,7 @@ makeIntermediateWorkReport WorkReportContext {..} rp fc =
         let go (_, _, tsn, ts) =
               let day = timestampDay ts
                in case tsn of
-                    "SCHEDULED" -> day <= today
+                    "SCHEDULED" -> day <= today && nowIsAfterAfter
                     "DEADLINE" -> day <= addDays 7 today && nowIsAfterAfter
                     "BEGIN" -> False
                     "END" -> False