02/03: Delete blocked_builds entries when deleting derivations

[Christopher Baines]

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

commit ebbcf36dc48ce9eedb906e574990ec16f9bae704
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Tue Feb 14 20:10:44 2023 +0000

    Delete blocked_builds entries when deleting derivations
---
 guix-data-service/data-deletion.scm | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/guix-data-service/data-deletion.scm 
b/guix-data-service/data-deletion.scm
index d16b916..a1fd5f2 100644
--- a/guix-data-service/data-deletion.scm
+++ b/guix-data-service/data-deletion.scm
@@ -385,6 +385,18 @@ DELETE FROM builds WHERE id IN ("
           (string-join build-ids ",")
           ")")))))
 
+  (define (delete-blocked-builds-for-derivation-output-details-set
+           conn
+           derivation-output-details-set-id)
+    (exec-query
+     conn
+     "
+DELETE FROM blocked_builds
+WHERE blocked_derivation_output_details_set_id = $1
+   OR blocking_derivation_output_details_set_id = $2"
+     (list derivation-output-details-set-id
+           derivation-output-details-set-id)))
+
   (define (delete-unreferenced-derivations-source-files conn)
     (exec-query
      conn
@@ -475,6 +487,10 @@ WHERE derivation_id = $1"
                 conn
                 derivation-output-details-set-id)
 
+               (delete-blocked-builds-for-derivation-output-details-set
+                conn
+                derivation-output-details-set-id)
+
                (exec-query
                 conn
                 "