aboutsummaryrefslogtreecommitdiff
path: root/guix-data-service/model/package-derivation-by-guix-revision-range.scm
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2020-11-17 20:47:16 +0000
committerChristopher Baines <mail@cbaines.net>2020-11-17 20:47:16 +0000
commite07b3291e84b9c25b5183e5b3332f1540d3fc6b4 (patch)
tree5186bdd339420c94ddb17f0cea3c4a7acc87229e /guix-data-service/model/package-derivation-by-guix-revision-range.scm
parent5fb3fa177dcb6a98bab5d51d635953db6aa56d01 (diff)
downloaddata-service-e07b3291e84b9c25b5183e5b3332f1540d3fc6b4.tar
data-service-e07b3291e84b9c25b5183e5b3332f1540d3fc6b4.tar.gz
Vacuum the package derivations table after each job
As each job deletes lots of rows in the table, vacuum it to free up space for the next job. I don't think this is something to do widely, but I wanted to try it out for the tables which have a lot of churn.
Diffstat (limited to 'guix-data-service/model/package-derivation-by-guix-revision-range.scm')
-rw-r--r--guix-data-service/model/package-derivation-by-guix-revision-range.scm6
1 files changed, 6 insertions, 0 deletions
diff --git a/guix-data-service/model/package-derivation-by-guix-revision-range.scm b/guix-data-service/model/package-derivation-by-guix-revision-range.scm
index 32e91b9..c6832ac 100644
--- a/guix-data-service/model/package-derivation-by-guix-revision-range.scm
+++ b/guix-data-service/model/package-derivation-by-guix-revision-range.scm
@@ -23,6 +23,7 @@
#:export (delete-guix-revision-package-derivation-entries
insert-guix-revision-package-derivation-entries
update-package-derivations-table
+ vacuum-package-derivations-table
rebuild-package-derivations-table))
(define (delete-guix-revision-package-derivation-entries conn
@@ -149,6 +150,11 @@ LOCK TABLE ONLY package_derivations_by_guix_revision_range
#t)
+(define (vacuum-package-derivations-table conn)
+ (exec-query
+ conn
+ "VACUUM package_derivations_by_guix_revision_range"))
+
(define (rebuild-package-derivations-table conn)
(with-postgresql-transaction
conn