[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/03: Delete git_branches entries
From: |
Christopher Baines |
Subject: |
01/03: Delete git_branches entries |
Date: |
Wed, 15 Feb 2023 08:28:56 -0500 (EST) |
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