diff options
author | Christopher Baines <mail@cbaines.net> | 2020-10-01 19:14:56 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-10-01 19:14:56 +0100 |
commit | 16600b1a431dd659b4521e1c9581267605aa2c0d (patch) | |
tree | 8f1ed1cb1ddbdc4922848dda8847bfca781626c1 | |
parent | fb4c7ecd4cd4ff02b8244ce5ee98e1a39e0a133f (diff) | |
download | data-service-16600b1a431dd659b4521e1c9581267605aa2c0d.tar data-service-16600b1a431dd659b4521e1c9581267605aa2c0d.tar.gz |
Remove the deleting derivations progress output
As this is harder to do when deleting derivations in parallel.
-rw-r--r-- | guix-data-service/data-deletion.scm | 13 |
1 files changed, 2 insertions, 11 deletions
diff --git a/guix-data-service/data-deletion.scm b/guix-data-service/data-deletion.scm index 2672292..4b20b49 100644 --- a/guix-data-service/data-deletion.scm +++ b/guix-data-service/data-deletion.scm @@ -432,15 +432,7 @@ WHERE NOT EXISTS ( derivations-count) (let ((deleted-count (fold - (lambda (id index result) - (when (eq? 0 (modulo index 50000)) - (simple-format #t "~A/~A (~A%) (deleted ~A so far)\n" - index derivations-count - (exact->inexact - (rationalize - (* 100 (/ index derivations-count)) - 1)) - result)) + (lambda (id result) (+ result (with-postgresql-transaction/through-channel conn-channel @@ -452,8 +444,7 @@ SET CONSTRAINTS derivations_by_output_details_set_derivation_id_fkey DEFERRED") (maybe-delete-derivation conn id))))) 0 - derivations - (iota derivations-count)))) + derivations))) (simple-format (current-error-port) "Deleted ~A derivations\n" deleted-count) |