From bf7a6695c972b61e693aa0a239ab4fa66f369466 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Fri, 21 Nov 2025 00:57:42 -0500
Subject: feat: implement t-1rdJxcd

---
 Omni/Task.hs | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

(limited to 'Omni/Task.hs')

diff --git a/Omni/Task.hs b/Omni/Task.hs
index 01b5ad9..b6ac195 100644
--- a/Omni/Task.hs
+++ b/Omni/Task.hs
@@ -207,11 +207,11 @@ move args
       tid <- getArgText args "id"
       statusStr <- getArgText args "status"
       let newStatus = case statusStr of
-            "open" -> Open
-            "in-progress" -> InProgress
-            "review" -> Review
-            "done" -> Done
-            _ -> panic "Invalid status. Use: open, in-progress, review, or done"
+        "open" -> Open
+        "in-progress" -> InProgress
+        "review" -> Review
+        "done" -> Done
+        _ -> panic "Invalid status. Use: open, in-progress, review, or done"
       updateTaskStatus tid newStatus
       if isJsonMode args
         then outputSuccess <| "Updated task " <> tid
@@ -375,7 +375,11 @@ unitTests =
         let found = findTask upperTid tasks
         case found of
           Just t -> taskId t Test.@?= tid
-          Nothing -> Test.assertFailure "Could not find task with upper case ID"
+          Nothing -> Test.assertFailure "Could not find task with upper case ID",
+      Test.unit "namespace normalization handles .hs suffix" <| do
+        let ns = "Omni/Task.hs"
+            validNs = Namespace.fromHaskellModule ns
+        Namespace.toPath validNs Test.@?= "Omni/Task.hs"
     ]
 
 -- | Test CLI argument parsing to ensure docopt string matches actual usage
-- 
cgit v1.2.3