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

Allow filtering the revision builds page by system

Browse source
This commit is contained in:
Christopher Baines 2019-12-22 14:27:59 +00:00
parent e4a7f221c9
commit 14b7993636
3 changed files with 74 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -234,7 +234,9 @@
(parse-query-parameters
request
`((build_status ,parse-build-status #:multi-value)
(build_server ,(parse-build-server conn) #:multi-value)))))
(build_server ,(parse-build-server conn) #:multi-value)
(system ,parse-system #:default "x86_64-linux")
(target ,parse-system #:default "x86_64-linux")))))
(render-revision-builds mime-types
conn
@ -754,28 +756,36 @@
(render-html
#:sxml (view-revision-builds query-parameters
build-status-strings
(valid-systems conn)
'()
'()
'()))
(render-html
#:sxml (view-revision-builds query-parameters
build-status-strings
(map (match-lambda
((id url lookup-all-derivations)
(cons url id)))
(select-build-servers conn))
(select-build-stats
conn
(assq-ref query-parameters
'build_server)
#:revision-commit commit-hash)
(select-builds-with-context
conn
(assq-ref query-parameters
'build_status)
(assq-ref query-parameters
'build_server)
#:revision-commit commit-hash)))))
(let ((system (assq-ref query-parameters 'system))
(target (assq-ref query-parameters 'target)))
(render-html
#:sxml (view-revision-builds query-parameters
build-status-strings
(valid-systems conn)
(map (match-lambda
((id url lookup-all-derivations)
(cons url id)))
(select-build-servers conn))
(select-build-stats
conn
(assq-ref query-parameters
'build_server)
#:revision-commit commit-hash
#:system system
#:target target)
(select-builds-with-context
conn
(assq-ref query-parameters
'build_status)
(assq-ref query-parameters
'build_server)
#:revision-commit commit-hash
#:system system
#:target target))))))
(define* (render-revision-lint-warnings mime-types
conn