From bb5b3731c8991adf786abc27a194e50446a4b8e6 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Fri, 4 Oct 2024 08:14:38 +0100 Subject: Vacuum some tables when deleting derivations --- guix-data-service/data-deletion.scm | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/guix-data-service/data-deletion.scm b/guix-data-service/data-deletion.scm index 13b3246..1e0f7e4 100644 --- a/guix-data-service/data-deletion.scm +++ b/guix-data-service/data-deletion.scm @@ -683,9 +683,19 @@ SET CONSTRAINTS derivations_by_output_details_set_derivation_id_fkey DEFERRED") (let ((batch-deleted-count (delete-batch conn))) (if (= 0 batch-deleted-count) (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 "Deleting unused derivation_source_files entries" (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 (current-output-port) "Finished deleting derivations, deleted ~A in total\n" -- cgit v1.2.3