[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/03: Delete blocked_builds entries when deleting derivations
From: |
Christopher Baines |
Subject: |
02/03: Delete blocked_builds entries when deleting derivations |
Date: |
Wed, 15 Feb 2023 08:28:56 -0500 (EST) |
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
"