From 1e34a47803b10513443ef836aad88c0087c67e5d Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bensima.com>
Date: Sat, 22 Nov 2025 19:30:45 -0500
Subject: feat: implement t-1o2c9vazf64

---
 Omni/Task.hs | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

(limited to 'Omni/Task.hs')

diff --git a/Omni/Task.hs b/Omni/Task.hs
index 36b318b..32f259b 100644
--- a/Omni/Task.hs
+++ b/Omni/Task.hs
@@ -73,7 +73,7 @@ Commands:
 
 Options:
   -h --help                     Show this help
-  --type=<type>                 Task type: epic or task (default: 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, done
@@ -119,7 +119,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)
@@ -174,6 +175,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
@@ -313,6 +315,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",
-- 
cgit v1.2.3