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