guix/data-service
2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/data-service.git synced 2023-12-14 03:23:03 +01:00
Code Issues Releases Wiki Activity

Improve dropping package_derivation_by_guix_revision_range partitions

Browse source
This commit is contained in:
Christopher Baines 2023-02-13 19:26:44 +00:00
parent 6be113f99d
commit 078516e0ab
1 changed files with 11 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
guix-data-service/data-deletion.scm
View file

@ -24,6 +24,7 @@
#:use-module (fibers) #:use-module (fibers)
#:use-module (guix-data-service utils) #:use-module (guix-data-service utils)
#:use-module (guix-data-service database) #:use-module (guix-data-service database)
#:use-module (guix-data-service model git-branch)
#:use-module (guix-data-service model package-derivation-by-guix-revision-range) #:use-module (guix-data-service model package-derivation-by-guix-revision-range)
#:export (delete-guix-revisions #:export (delete-guix-revisions
delete-data-for-branch delete-data-for-branch
@ -213,18 +214,16 @@ WHERE id IN (
(delete-from-git-commits conn) (delete-from-git-commits conn)
(delete-jobs conn) (delete-jobs conn)
(exec-query (let ((git-branch-id
conn (git-branch-for-repository-and-name conn
" git-repository-id
DELETE FROM package_derivations_by_guix_revision_range branch-name)))
WHERE git_branch_id IN ( (exec-query
SELECT id conn
FROM git_branches (string-append
WHERE git_repository_id = $1 AND "
name = $2 DROP TABLE package_derivations_by_guix_revision_range_git_branch_"
)" (number->string git-branch-id) ";")))
(list (number->string git-repository-id)
branch-name))
(delete-guix-revisions conn git-repository-id commits)))) (delete-guix-revisions conn git-repository-id commits))))