fix(task): exclude Review tasks from task ready

1 files changed, 3 insertions, 1 deletions

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