task: complete t-1o2c9vazf64 (Merge)

Amp-Thread-ID:
https://ampcode.com/threads/T-ca3b086b-5a85-422a-b13d-256784c04221
Co-authored-by: Amp <amp@ampcode.com>

1 files changed, 7 insertions, 4 deletions

diff --git a/Omni/Task/Core.hs b/Omni/Task/Core.hs
index 2f2cccb..1eb820f 100644
--- a/Omni/Task/Core.hs
+++ b/Omni/Task/Core.hs
@@ -39,7 +39,7 @@ data Task = Task
   }
   deriving (Show, Eq, Generic)
 
-data TaskType = Epic | WorkTask
+data TaskType = Epic | WorkTask | HumanTask
   deriving (Show, Eq, Generic)
 
 data Status = Open | InProgress | Review | Approved | Done
@@ -454,9 +454,12 @@ getReadyTasks = do
       -- Only Blocks and ParentChild dependencies block ready work
       blockingDepIds task = [depId dep | dep <- taskDependencies task, depType dep `elem` [Blocks, ParentChild]]
       isReady task =
-        taskType task /= Epic
+        taskType task
+          /= Epic
           && not (isParent (taskId task))
           && all (`elem` doneIds) (blockingDepIds task)
+          && taskType task
+          /= HumanTask
   pure <| filter isReady openTasks
 
 -- Get dependency tree for a task (returns tasks)
@@ -575,7 +578,7 @@ showTaskTree maybeId = do
               let total = length children
                   completed = length <| filter (\t -> taskStatus t == Done) children
                in "[" <> T.pack (show completed) <> "/" <> T.pack (show total) <> "]"
-            WorkTask -> case taskStatus task of
+            _ -> case taskStatus task of
               Open -> "[ ]"
               InProgress -> "[~]"
               Review -> "[?]"
@@ -584,7 +587,7 @@ showTaskTree maybeId = do
 
           coloredStatusStr = case taskType task of
             Epic -> magenta statusStr
-            WorkTask -> case taskStatus task of
+            _ -> case taskStatus task of
               Open -> bold statusStr
               InProgress -> yellow statusStr
               Review -> magenta statusStr