From 1ab28d35a82ceb89ad4fe71582659bd717757ab6 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bensima.com>
Date: Wed, 26 Nov 2025 10:09:40 -0500
Subject: Add task delete command

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

(limited to 'Omni/Task')

diff --git a/Omni/Task/Core.hs b/Omni/Task/Core.hs
index 2110170..3b4eaa0 100644
--- a/Omni/Task/Core.hs
+++ b/Omni/Task/Core.hs
@@ -442,6 +442,12 @@ editTask tid modifyFn =
         saveTask finalTask
         pure finalTask
 
+-- Delete a task
+deleteTask :: Text -> IO ()
+deleteTask tid =
+  withDb <| \conn ->
+    SQL.execute conn "DELETE FROM tasks WHERE id = ?" (SQL.Only tid)
+
 -- List tasks
 listTasks :: Maybe TaskType -> Maybe Text -> Maybe Status -> Maybe Text -> IO [Task]
 listTasks maybeType maybeParent maybeStatus maybeNamespace = do
-- 
cgit v1.2.3