cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove the deleting derivations progress output

Browse source 
As this is harder to do when deleting derivations in parallel.
This commit is contained in:
Christopher Baines 2020-10-01 19:14:56 +01:00
parent fb4c7ecd4c
commit 16600b1a43
1 changed files with 2 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

13
guix-data-service/data-deletion.scm
View file

@ -432,15 +432,7 @@ WHERE NOT EXISTS (
derivations-count) derivations-count)
(let ((deleted-count (let ((deleted-count
(fold (fold
(lambda (id index result) (lambda (id 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))
(+ result (+ result
(with-postgresql-transaction/through-channel (with-postgresql-transaction/through-channel
conn-channel conn-channel
@ -452,8 +444,7 @@ SET CONSTRAINTS derivations_by_output_details_set_derivation_id_fkey DEFERRED")
(maybe-delete-derivation conn id))))) (maybe-delete-derivation conn id)))))
0 0
derivations derivations)))
(iota derivations-count))))
(simple-format (current-error-port) (simple-format (current-error-port)
"Deleted ~A derivations\n" "Deleted ~A derivations\n"
deleted-count) deleted-count)