diff options
| author | Ben Sima <ben@bensima.com> | 2025-11-26 10:09:40 -0500 |
|---|---|---|
| committer | Ben Sima <ben@bensima.com> | 2025-11-26 10:09:40 -0500 |
| commit | 1ab28d35a82ceb89ad4fe71582659bd717757ab6 (patch) | |
| tree | cdd4edba3ded815fe5a5e1a6aced52a0bb77c7c7 /Omni/Task/Core.hs | |
| parent | 32e5b5b097c50d0b1d8a3dbcf93163aabf1ee8fb (diff) | |
Add task delete command
Diffstat (limited to 'Omni/Task/Core.hs')
| -rw-r--r-- | Omni/Task/Core.hs | 6 |
1 files changed, 6 insertions, 0 deletions
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 |