Stop recursing now that derivation deletion selection is smarter

As this probably won't help with performance.

1 files changed, 10 insertions, 33 deletions

diff --git a/guix-data-service/data-deletion.scm b/guix-data-service/data-deletion.scm
index 639d2b1..40a5bab 100644
--- a/guix-data-service/data-deletion.scm
+++ b/guix-data-service/data-deletion.scm
@@ -389,42 +389,19 @@ DELETE FROM derivation_output_details_sets
 WHERE id = $1"
                 (list derivation-output-details-set-id)))))))
 
-       (let ((input-derivations
-              (map car
-                   (exec-query
-                    conn
-                    "
-SELECT DISTINCT derivations.id
-FROM derivations
-WHERE derivations.id IN (
-  SELECT derivation_outputs.derivation_id
-  FROM derivation_outputs
-  INNER JOIN derivation_inputs
-    ON derivation_outputs.id = derivation_inputs.derivation_output_id
-  WHERE derivation_inputs.derivation_id = $1
-)"
-                    (list id)))))
-
-         (exec-query
-          conn
-          "
+       (exec-query
+        conn
+        "
 DELETE FROM derivation_inputs WHERE derivation_id = $1"
-          (list id))
+        (list id))
 
-         (exec-query
-          conn
-          "
+       (exec-query
+        conn
+        "
 DELETE FROM derivations WHERE id = $1"
-          (list id))
-
-         ;; Look at the inputs to see if they can be deleted too, as one of
-         ;; the derivations that was using them has now been deleted.
-         (fold
-          (lambda (id result)
-            (+ result
-               (maybe-delete-derivation conn id)))
-          1
-          input-derivations)))))
+        (list id))
+
+       1)))
 
   (with-postgresql-connection
    "data-deletion"