Fix the successful builds outputs query where there are no revisions

As it was erroring before.
This commit is contained in:
Christopher Baines 2019-12-26 08:35:33 +00:00
parent e359cfea2b
commit 801ebdfa9e

View file

@ -285,7 +285,8 @@ ORDER BY COUNT(*) DESC")
build-server-id
guix-revision-commits)
(define query
(string-append "
(string-append
"
SELECT DISTINCT derivation_output_details.path
FROM derivations
INNER JOIN derivation_outputs
@ -304,6 +305,11 @@ WHERE derivation_output_details.path NOT IN (
WHERE narinfo_fetch_records.build_server_id = $1
)
AND derivations.system = 'x86_64-linux'
"
(if (null? guix-revision-commits)
""
(string-append
"
AND derivations.id IN (
SELECT derivation_id
FROM package_derivations
@ -315,7 +321,8 @@ WHERE derivation_output_details.path NOT IN (
(string-join (map quote-string guix-revision-commits)
",")
")
)
)"))
"
LIMIT 10000"))
(map car (exec-query conn query (list (number->string build-server-id)))))