01/03: Delete git_branches entries

[Christopher Baines]

cbaines pushed a commit to branch master
in repository data-service.

commit 5874c4ee37daefc79a0915062b4ed5ba650dc8a7
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Tue Feb 14 19:57:30 2023 +0000

    Delete git_branches entries
    
    When deleting data for a branch.
---
 guix-data-service/data-deletion.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/guix-data-service/data-deletion.scm 
b/guix-data-service/data-deletion.scm
index 07aeba5..d16b916 100644
--- 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