cbaines pushed a commit to branch master
in repository data-service.
commit bb5b3731c8991adf786abc27a194e50446a4b8e6
Author: Christopher Baines <[email protected]>
AuthorDate: Fri Oct 4 08:14:38 2024 +0100
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"
