05/05: Reorder some vacuum operations when loading revisions

[Christopher Baines]

cbaines pushed a commit to branch master
in repository data-service.

commit 319439d05a7e44b7d9dcca7db60c57acb3c1f334
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Thu Mar 9 09:17:07 2023 +0000

    Reorder some vacuum operations when loading revisions
---
 guix-data-service/jobs/load-new-guix-revision.scm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

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")