Delete git_branches entries

When deleting data for a branch.
2023-02-14 19:57:30 +00:00 · 2023-02-14 19:57:30 +00:00 · 5874c4ee37
commit 5874c4ee37
parent 9872367c01
1 changed files with 8 additions and 1 deletions
--- a/guix-data-service/data-deletion.scm
+++ b/guix-data-service/data-deletion.scm
@ -244,7 +244,14 @@ WHERE git_repository_id = $1
  (delete-revisions-from-branch conn
                                git-repository-id
                                branch-name
-                                commits))
+                                commits)
+
+  (exec-query
+   conn
+   "
+DELETE FROM git_branches WHERE name = $1 AND git_repository_id = $2"
+   (list branch-name
+         (number->string git-repository-id))))

 (define (delete-revisions-from-branch-except-most-recent-n conn
                                                           git-repository-id