1 files changed, 47 insertions, 6 deletions
diff --git a/Omni/Task.hs b/Omni/Task.hs
index 36b318b..e1457fb 100644
--- a/Omni/Task.hs
+++ b/Omni/Task.hs
@@ -44,7 +44,7 @@ Usage:
   task list [options]
   task ready [--json]
   task show <id> [--json]
-  task update <id> <status> [--json]
+  task update <id> <status> [options]
   task deps <id> [--json]
   task tree [<id>] [--json]
   task progress <id> [--json]
@@ -205,22 +205,39 @@ move args
   | args `Cli.has` Cli.command "show" = do
       tid <- getArgText args "id"
       tasks <- loadTasks
-      case filter (\t -> taskId t == tid) tasks of
-        [] -> putText "Task not found"
-        (task : _) ->
+      case findTask tid tasks of
+        Nothing -> putText "Task not found"
+        Just task ->
           if isJsonMode args
             then outputJson task
             else showTaskDetailed task
   | args `Cli.has` Cli.command "update" = do
       tid <- getArgText args "id"
       statusStr <- getArgText args "status"
+
+      -- Handle update dependencies
+      deps <- do
+        -- Parse --deps and --dep-type
+        ids <- case Cli.getArg args (Cli.longOption "deps") of
+          Nothing -> pure []
+          Just depStr -> pure <| T.splitOn "," (T.pack depStr)
+        dtype <- case Cli.getArg args (Cli.longOption "dep-type") of
+          Nothing -> pure Blocks
+          Just "blocks" -> pure Blocks
+          Just "discovered-from" -> pure DiscoveredFrom
+          Just "parent-child" -> pure ParentChild
+          Just "related" -> pure Related
+          Just other -> panic <| "Invalid dependency type: " <> T.pack other <> ". Use: blocks, discovered-from, parent-child, or related"
+        pure (map (\d -> Dependency {depId = d, depType = dtype}) ids)
+
       let newStatus = case statusStr of
             "open" -> Open
             "in-progress" -> InProgress
             "review" -> Review
             "done" -> Done
             _ -> panic "Invalid status. Use: open, in-progress, review, or done"
-      updateTaskStatus tid newStatus
+
+      updateTaskStatus tid newStatus deps
       if isJsonMode args
         then outputSuccess <| "Updated task " <> tid
         else do
@@ -397,7 +414,31 @@ unitTests =
       Test.unit "namespace normalization handles .hs suffix" <| do
         let ns = "Omni/Task.hs"
             validNs = Namespace.fromHaskellModule ns
-        Namespace.toPath validNs Test.@?= "Omni/Task.hs"
+        Namespace.toPath validNs Test.@?= "Omni/Task.hs",
+      Test.unit "generated IDs are lowercase" <| do
+        task <- createTask "Lowercase check" WorkTask Nothing Nothing P2 [] Nothing
+        let tid = taskId task
+        tid Test.@?= T.toLower tid
+        -- check it matches regex for base36 (t-[0-9a-z]+)
+        let isLowerBase36 = T.all (\c -> c `elem` ['0' .. '9'] ++ ['a' .. 'z'] || c == 't' || c == '-') tid
+        isLowerBase36 Test.@?= True,
+      Test.unit "dependencies are case insensitive" <| do
+        task1 <- createTask "Blocker" WorkTask Nothing Nothing P2 [] Nothing
+        let tid1 = taskId task1
+            -- Use uppercase ID for dependency
+            upperTid1 = T.toUpper tid1
+            dep = Dependency {depId = upperTid1, depType = Blocks}
+        task2 <- createTask "Blocked" WorkTask Nothing Nothing P2 [dep] Nothing
+
+        -- task1 is Open, so task2 should NOT be ready
+        ready <- getReadyTasks
+        (taskId task2 `notElem` map taskId ready) Test.@?= True
+
+        updateTaskStatus tid1 Done []
+
+        -- task2 should now be ready because dependency check normalizes IDs
+        ready2 <- getReadyTasks
+        (taskId task2 `elem` map taskId ready2) Test.@?= True
     ]
 
 -- | Test CLI argument parsing to ensure docopt string matches actual usage