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

Add a couple of options to select-derivation-outputs-in-revision

Browse source 
To filter outputs by whether particular substitute servers have a substitute.
This commit is contained in:
Christopher Baines 2020-05-03 21:20:53 +01:00
parent e4cb3a815a
commit 3cc14ae03a
1 changed files with 36 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

36
guix-data-service/model/derivation.scm
View file

@ -454,6 +454,8 @@ ORDER BY derivations.file_name
#:key #:key
search-query search-query
output-consistency output-consistency
nars-from-build-servers
no-nars-from-build-servers
system system
target target
limit-results limit-results
@ -517,6 +519,40 @@ WHERE guix_revisions.commit = $1
query count)) query count))
criteria criteria
(iota (length criteria) 2)))) (iota (length criteria) 2))))
(if (list? nars-from-build-servers)
(string-append
"
AND ARRAY[" (string-join (map number->string nars-from-build-servers)
", ")
"]::integer[] <@ COALESCE(( -- contained by
SELECT ARRAY_AGG(narinfo_fetch_records.build_server_id)
FROM nars
INNER JOIN narinfo_signatures
ON nars.id = narinfo_signatures.nar_id
INNER JOIN narinfo_signature_data
ON narinfo_signature_data.id = narinfo_signatures.narinfo_signature_data_id
INNER JOIN narinfo_fetch_records
ON narinfo_signature_data.id = narinfo_fetch_records.narinfo_signature_data_id
WHERE nars.store_path = derivation_output_details.path
), ARRAY[]::integer[])")
"")
(if (list? no-nars-from-build-servers)
(string-append
"
AND NOT ARRAY[" (string-join (map number->string no-nars-from-build-servers)
", ")
"]::integer[] && COALESCE((
SELECT ARRAY_AGG(narinfo_fetch_records.build_server_id)
FROM nars
INNER JOIN narinfo_signatures
ON nars.id = narinfo_signatures.nar_id
INNER JOIN narinfo_signature_data
ON narinfo_signature_data.id = narinfo_signatures.narinfo_signature_data_id
INNER JOIN narinfo_fetch_records
ON narinfo_signature_data.id = narinfo_fetch_records.narinfo_signature_data_id
WHERE nars.store_path = derivation_output_details.path
), ARRAY[]::integer[])")
"")
(cond (cond
((string=? output-consistency "any") ((string=? output-consistency "any")
"") "")