guix
/
data-service
mirror of git://git.savannah.gnu.org/guix/data-service.git
2
0
Fork 0
Code Issues Releases Wiki Activity

Delete blocked_builds entries when deleting derivations

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
Show Stats 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 ",")
")")))))
(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
"