04/05: Remove the deleting derivations progress output

[Christopher Baines]

cbaines pushed a commit to branch master
in repository data-service.

commit 16600b1a431dd659b4521e1c9581267605aa2c0d
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Thu Oct 1 19:14:56 2020 +0100

    Remove the deleting derivations progress output
    
    As this is harder to do when deleting derivations in parallel.
---
 guix-data-service/data-deletion.scm | 13 ++-----------
 1 file 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)