diff options
| -rw-r--r-- | guix-data-service/data-deletion.scm | 10 |
1 files changed, 10 insertions, 0 deletions
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 @@ -684,8 +684,18 @@ SET CONSTRAINTS derivations_by_output_details_set_derivation_id_fkey DEFERRED") (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" |