diff options
| -rw-r--r-- | guix-data-service/data-deletion.scm | 16 |
1 files changed, 16 insertions, 0 deletions
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 " |