feat: implement t-1rdJxcd

1 files changed, 10 insertions, 6 deletions

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