diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-02-14 19:57:30 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-02-14 19:57:30 +0000 |
| commit | 5874c4ee37daefc79a0915062b4ed5ba650dc8a7 (patch) | |
| tree | 84aaeeff028d80ae771eb9d28389b56b28fc8d74 | |
| parent | 9872367c01d95ed3fc5c73dd8ea31c3fa851f189 (diff) | |
| download | data-service-5874c4ee37daefc79a0915062b4ed5ba650dc8a7.tar data-service-5874c4ee37daefc79a0915062b4ed5ba650dc8a7.tar.gz | |
Delete git_branches entries
When deleting data for a branch.
| -rw-r--r-- | guix-data-service/data-deletion.scm | 9 |
1 files changed, 8 insertions, 1 deletions
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 |