From 5f4cbda3fe4ef38839d0b64068f0900bc3700ead Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Thu, 20 Nov 2025 23:10:37 -0500 Subject: fix(task): exclude Review tasks from task ready --- Omni/Task/Core.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'Omni/Task/Core.hs') diff --git a/Omni/Task/Core.hs b/Omni/Task/Core.hs index 228ab05..e4f1086 100644 --- a/Omni/Task/Core.hs +++ b/Omni/Task/Core.hs @@ -279,7 +279,9 @@ listTasks maybeType maybeParent maybeStatus maybeNamespace = do getReadyTasks :: IO [Task] getReadyTasks = do allTasks <- loadTasks - let openTasks = filter (\t -> taskStatus t /= Done) allTasks + -- Only Open or InProgress tasks are considered ready for work. + -- Review tasks are waiting for review, and Done tasks are complete. + let openTasks = filter (\t -> taskStatus t == Open || taskStatus t == InProgress) allTasks doneIds = map taskId <| filter (\t -> taskStatus t == Done) allTasks -- Find all tasks that act as parents -- cgit v1.2.3