cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Delete blocked_builds entries when deleting derivations

Browse source
This commit is contained in:
Christopher Baines 2023-02-14 20:10:44 +00:00
parent 5874c4ee37
commit ebbcf36dc4
1 changed files with 16 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

16
guix-data-service/data-deletion.scm
View file

@ -385,6 +385,18 @@ DELETE FROM builds WHERE id IN ("
(string-join build-ids ",") (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) (define (delete-unreferenced-derivations-source-files conn)
(exec-query (exec-query
conn conn
@ -475,6 +487,10 @@ WHERE derivation_id = $1"
conn conn
derivation-output-details-set-id) derivation-output-details-set-id)
(delete-blocked-builds-for-derivation-output-details-set
conn
derivation-output-details-set-id)
(exec-query (exec-query
conn conn
" "