summaryrefslogtreecommitdiff
path: root/Omni/Task.hs
diff options
context:
space:
mode:
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