cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Vacuum some tables when deleting derivations

Browse source
This commit is contained in:
Christopher Baines 2024-10-04 08:14:38 +01:00
parent 53ddb26300
commit bb5b3731c8
1 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
guix-data-service/data-deletion.scm
View file

@ -683,9 +683,19 @@ SET CONSTRAINTS derivations_by_output_details_set_derivation_id_fkey DEFERRED")
(let ((batch-deleted-count (delete-batch conn))) (let ((batch-deleted-count (delete-batch conn)))
(if (= 0 batch-deleted-count) (if (= 0 batch-deleted-count)
(begin (begin
(with-time-logging
"VACUUM derivation_inputs"
(exec-query conn "VACUUM (VERBOSE) derivation_inputs;"))
(with-time-logging
"VACUUM derivations"
(exec-query conn "VACUUM (VERBOSE) derivations;"))
(with-time-logging (with-time-logging
"Deleting unused derivation_source_files entries" "Deleting unused derivation_source_files entries"
(delete-unreferenced-derivations-source-files conn)) (delete-unreferenced-derivations-source-files conn))
(with-time-logging
"VACUUM derivation_source_file_nars"
(exec-query
conn "VACUUM (VERBOSE) derivation_source_file_nars;"))
(simple-format (simple-format
(current-output-port) (current-output-port)
"Finished deleting derivations, deleted ~A in total\n" "Finished deleting derivations, deleted ~A in total\n"