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

Reorder some vacuum operations when loading revisions

Browse source
This commit is contained in:
Christopher Baines 2023-03-09 09:17:07 +00:00
parent 659dcc6a0d
commit 319439d05a
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
guix-data-service/jobs/load-new-guix-revision.scm
View file

@ -2175,6 +2175,10 @@ SKIP LOCKED")
"vacuuming package derivations by guix revision range table" "vacuuming package derivations by guix revision range table"
(vacuum-package-derivations-table conn)) (vacuum-package-derivations-table conn))
(with-time-logging
"vacuum-derivation-inputs-table"
(vacuum-derivation-inputs-table conn))
(match (exec-query (match (exec-query
conn conn
"SELECT reltuples::bigint FROM pg_class WHERE relname = 'derivation_inputs'") "SELECT reltuples::bigint FROM pg_class WHERE relname = 'derivation_inputs'")
@ -2189,17 +2193,13 @@ SKIP LOCKED")
(update-derivation-inputs-statistics conn))))) (update-derivation-inputs-statistics conn)))))
(with-time-logging (with-time-logging
"vacuum-derivation-inputs-table" "vacuum-derivation-outputs-table"
(vacuum-derivation-inputs-table conn)) (vacuum-derivation-outputs-table conn))
(with-time-logging (with-time-logging
"update-derivation-outputs-statistics" "update-derivation-outputs-statistics"
(update-derivation-outputs-statistics conn)) (update-derivation-outputs-statistics conn))
(with-time-logging
"vacuum-derivation-outputs-table"
(vacuum-derivation-outputs-table conn))
#t) #t)
(begin (begin
(exec-query conn "ROLLBACK") (exec-query conn "ROLLBACK")