feat: implement t-1o2c9vazf64

1 files changed, 4 insertions, 3 deletions

diff --git a/Omni/Task/Core.hs b/Omni/Task/Core.hs
index bab1912..c548f6c 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 | Done
@@ -397,6 +397,7 @@ getReadyTasks = do
       isReady task =
         not (isParent (taskId task))
           && all (`elem` doneIds) (blockingDepIds task)
+          && taskType task /= HumanTask
   pure <| filter isReady openTasks
 
 -- Get dependency tree for a task (returns tasks)
@@ -514,7 +515,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 -> "[?]"
@@ -522,7 +523,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