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

Support controlling the fields returned for package derivations

Browse source 
Mostly so that the builds can be avoided when querying for all the
derivations, as that's slow.
This commit is contained in:
Christopher Baines 2020-04-24 10:17:12 +01:00
parent 6fb3892712
commit 68420b1085
3 changed files with 79 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

10
guix-data-service/web/revision/controller.scm
View file

@ -174,6 +174,8 @@
(target ,parse-target #:multi-value)
(maximum_builds ,parse-number)
(minimum_builds ,parse-number)
(field ,identity #:multi-value
#:default ("system" "target" "builds"))
(after_name ,identity)
(limit_results ,parse-result-limit
#:no-default-when (all_results)
@ -723,6 +725,8 @@
(assq-ref query-parameters 'all_results))
(search-query
(assq-ref query-parameters 'search_query))
(fields
(assq-ref query-parameters 'field))
(derivations
(if search-query
(search-package-derivations-in-revision
@ -734,7 +738,8 @@
#:maximum-builds (assq-ref query-parameters 'maximum_builds)
#:minimum-builds (assq-ref query-parameters 'minimum_builds)
#:limit-results limit-results
#:after-name (assq-ref query-parameters 'after_name))
#:after-name (assq-ref query-parameters 'after_name)
#:include-builds? (member "builds" fields))
(select-package-derivations-in-revision
conn
commit-hash
@ -743,7 +748,8 @@
#:maximum-builds (assq-ref query-parameters 'maximum_builds)
#:minimum-builds (assq-ref query-parameters 'minimum_builds)
#:limit-results limit-results
#:after-name (assq-ref query-parameters 'after_name))))
#:after-name (assq-ref query-parameters 'after_name)
#:include-builds? (member "builds" fields))))
(build-server-urls
(group-to-alist
(match-lambda