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

Rework cross derivations support

Browse source 
Stop using the system values as targets, and remove package derivation entries
where this is the case.

Switch the non-cross derivation case to have a target of "", rather than
matching the system, as this makes more sense, and is more consistent now that
the target values no longer match the system values.

Hardcode some more correct target values, and use these instead. Hopefully
this can be better integrated with Guix in the future.

This commit also includes a migration attempting to shrink some indexes.
This commit is contained in:
Christopher Baines 2020-02-08 11:16:08 +00:00
parent 77beb59495
commit f1989e8758
19 changed files with 202 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -172,7 +172,7 @@
request
`((search_query ,identity)
(system ,parse-system #:multi-value)
(target ,parse-system #:multi-value)
(target ,identity #:multi-value)
(maximum_builds ,parse-number)
(minimum_builds ,parse-number)
(after_name ,identity)
@ -201,7 +201,7 @@
(output_consistency ,identity
#:default "any")
(system ,parse-system #:default "x86_64-linux")
(target ,parse-system #:default "x86_64-linux")
(target ,identity)
(limit_results ,parse-result-limit
#:no-default-when (all_results)
#:default 10)
@ -242,7 +242,7 @@
`((build_status ,parse-build-status #:multi-value)
(build_server ,(parse-build-server conn) #:multi-value)
(system ,parse-system #:default "x86_64-linux")
(target ,parse-system #:default "x86_64-linux")))))
(target ,identity)))))
(render-revision-builds mime-types
conn
@ -661,6 +661,7 @@
#:sxml (view-revision-derivations commit-hash
query-parameters
(valid-systems conn)
(valid-targets conn)
'()
'()
#f
@ -717,6 +718,7 @@
#:sxml (view-revision-derivations commit-hash
query-parameters
(valid-systems conn)
(valid-targets conn)
derivations
build-server-urls
show-next-page?
@ -748,6 +750,7 @@
'()
'()
'()
'()
#:path-base path-base
#:header-text header-text
#:header-link header-link))))
@ -790,6 +793,7 @@
derivation-outputs
build-server-urls
(valid-systems conn)
(valid-targets conn)
show-next-page?
#:path-base path-base
#:header-text header-text