diff options
author | Christopher Baines <mail@cbaines.net> | 2020-11-17 20:47:16 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-11-17 20:47:16 +0000 |
commit | e07b3291e84b9c25b5183e5b3332f1540d3fc6b4 (patch) | |
tree | 5186bdd339420c94ddb17f0cea3c4a7acc87229e /guix-data-service/model/package-derivation-by-guix-revision-range.scm | |
parent | 5fb3fa177dcb6a98bab5d51d635953db6aa56d01 (diff) | |
download | data-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.scm | 6 |
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 |