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>

3 files changed, 19 insertions, 6 deletions

diff --git a/Omni/Task.hs b/Omni/Task.hs
index 82449db..653e5fe 100644
--- a/Omni/Task.hs
+++ b/Omni/Task.hs
@@ -78,7 +78,7 @@ Commands:
 Options:
   -h --help                     Show this help
   --title=<title>               Task title
-  --type=<type>                 Task type: epic or task
+  --type=<type>                 Task type: epic, task, or human (default: task)
   --parent=<id>                 Parent epic ID
   --priority=<p>                Priority: 0-4 (0=critical, 4=backlog, default: 2)
   --status=<status>             Filter by status: open, in-progress, review, approved, done
@@ -127,7 +127,8 @@ move args
         Nothing -> pure WorkTask
         Just "epic" -> pure Epic
         Just "task" -> pure WorkTask
-        Just other -> panic <| "Invalid task type: " <> T.pack other <> ". Use: epic or task"
+        Just "human" -> pure HumanTask
+        Just other -> panic <| "Invalid task type: " <> T.pack other <> ". Use: epic, task, or human"
       parent <- case Cli.getArg args (Cli.longOption "parent") of
         Nothing -> pure Nothing
         Just p -> pure <| Just (T.pack p)
@@ -247,6 +248,7 @@ move args
         Nothing -> pure Nothing
         Just "epic" -> pure <| Just Epic
         Just "task" -> pure <| Just WorkTask
+        Just "human" -> pure <| Just HumanTask
         Just other -> panic <| "Invalid task type: " <> T.pack other
       maybeParent <- case Cli.getArg args (Cli.longOption "parent") of
         Nothing -> pure Nothing
@@ -405,6 +407,13 @@ unitTests =
         taskStatus task Test.@?= Open
         taskPriority task Test.@?= P2
         null (taskDependencies task) Test.@?= True,
+      Test.unit "can create human task" <| do
+        task <- createTask "Human Task" HumanTask Nothing Nothing P2 [] Nothing
+        taskType task Test.@?= HumanTask,
+      Test.unit "ready tasks exclude human tasks" <| do
+        task <- createTask "Human Task" HumanTask Nothing Nothing P2 [] Nothing
+        ready <- getReadyTasks
+        (taskId task `notElem` map taskId ready) Test.@?= True,
       Test.unit "can create task with description" <| do
         task <- createTask "Test task" WorkTask Nothing Nothing P2 [] (Just "My description")
         taskDescription task Test.@?= Just "My description",
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
diff --git a/Omni/Task/README.md b/Omni/Task/README.md
index 8e8670e..d52efba 100644
--- a/Omni/Task/README.md
+++ b/Omni/Task/README.md
@@ -48,6 +48,7 @@ task create "Fix type errors" --namespace="Omni/Task"
 **Task Types:**
 - `epic` - Container for related tasks
 - `task` - Individual work item (default)
+- `human` - Task specifically for human operators (excluded from agent work queues)
 
 **Dependency Types:**
 - `blocks` - Hard dependency, blocks ready work queue (default)