summaryrefslogtreecommitdiff
path: root/Omni/Task.hs
diff options
context:
space:
mode:
authorOmni Worker <bot@omni.agent>2025-11-21 06:26:49 -0500
committerOmni Worker <bot@omni.agent>2025-11-21 06:26:49 -0500
commit717d58af46f4cc81baea27f4eab9a58e01dae24a (patch)
tree7d69a43a202703c32e0588d3c4409699e1536204 /Omni/Task.hs
parentbf7a6695c972b61e693aa0a239ab4fa66f369466 (diff)
fix: normalize haskell namespace and remove reproduce script
Amp-Thread-ID: https://ampcode.com/threads/T-79499d9e-f4f4-40de-893c-524c32a45483 Co-authored-by: Amp <amp@ampcode.com>
Diffstat (limited to 'Omni/Task.hs')
-rw-r--r--Omni/Task.hs10
1 files changed, 5 insertions, 5 deletions
diff --git a/Omni/Task.hs b/Omni/Task.hs
index b6ac195..65e9d58 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