From 319439d05a7e44b7d9dcca7db60c57acb3c1f334 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Thu, 9 Mar 2023 09:17:07 +0000 Subject: Reorder some vacuum operations when loading revisions --- guix-data-service/jobs/load-new-guix-revision.scm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'guix-data-service/jobs') diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm index 7c9a772..816cbf2 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -2175,6 +2175,10 @@ SKIP LOCKED") "vacuuming package derivations by guix revision range table" (vacuum-package-derivations-table conn)) + (with-time-logging + "vacuum-derivation-inputs-table" + (vacuum-derivation-inputs-table conn)) + (match (exec-query conn "SELECT reltuples::bigint FROM pg_class WHERE relname = 'derivation_inputs'") @@ -2189,17 +2193,13 @@ SKIP LOCKED") (update-derivation-inputs-statistics conn))))) (with-time-logging - "vacuum-derivation-inputs-table" - (vacuum-derivation-inputs-table conn)) + "vacuum-derivation-outputs-table" + (vacuum-derivation-outputs-table conn)) (with-time-logging "update-derivation-outputs-statistics" (update-derivation-outputs-statistics conn)) - (with-time-logging - "vacuum-derivation-outputs-table" - (vacuum-derivation-outputs-table conn)) - #t) (begin (exec-query conn "ROLLBACK") -- cgit v1.2.3