diff options
Diffstat (limited to 'guix-data-service/data-deletion.scm')
-rw-r--r-- | guix-data-service/data-deletion.scm | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/guix-data-service/data-deletion.scm b/guix-data-service/data-deletion.scm index 6c4e0b9..197cef1 100644 --- a/guix-data-service/data-deletion.scm +++ b/guix-data-service/data-deletion.scm @@ -448,17 +448,16 @@ WHERE NOT EXISTS ( (lambda (count result) (+ result count)) 0 - (par-map (lambda (derivation-id) - (with-postgresql-transaction/through-channel - conn-channel - (lambda (conn) - (exec-query - conn - " + (par-map& (lambda (derivation-id) + (with-thread-postgresql-connection + (lambda (conn) + (exec-query + conn + " SET CONSTRAINTS derivations_by_output_details_set_derivation_id_fkey DEFERRED") - (maybe-delete-derivation conn derivation-id)))) - derivations)))) + (maybe-delete-derivation conn derivation-id)))) + derivations)))) (simple-format (current-error-port) "Deleted ~A derivations\n" deleted-count) |