From 5874c4ee37daefc79a0915062b4ed5ba650dc8a7 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Tue, 14 Feb 2023 19:57:30 +0000 Subject: [PATCH] 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