mirror of
git://git.savannah.gnu.org/guix/data-service.git
synced 2023-12-14 03:23:03 +01:00
Support the system-tests page for the latest processed revision
This commit is contained in:
parent
52ac92e7c7
commit
be2d554aae
2 changed files with 21 additions and 0 deletions
|
@ -368,6 +368,26 @@
|
|||
(render-no-latest-revision mime-types
|
||||
repository-id
|
||||
branch-name))))
|
||||
(('GET "repository" repository-id "branch" branch-name
|
||||
"latest-processed-revision" "system-tests")
|
||||
(letpar& ((commit-hash
|
||||
(with-thread-postgresql-connection
|
||||
(lambda (conn)
|
||||
(latest-processed-commit-for-branch conn
|
||||
repository-id
|
||||
branch-name)))))
|
||||
(if commit-hash
|
||||
(let ((parsed-query-parameters
|
||||
(parse-query-parameters
|
||||
request
|
||||
`((system ,parse-system #:default "x86_64-linux")))))
|
||||
(render-revision-system-tests mime-types
|
||||
commit-hash
|
||||
parsed-query-parameters
|
||||
#:path-base path))
|
||||
(render-no-latest-revision mime-types
|
||||
repository-id
|
||||
branch-name))))
|
||||
(('GET "repository" repository-id "branch" branch-name "latest-processed-revision" "package-reproducibility")
|
||||
(letpar& ((commit-hash
|
||||
(with-thread-postgresql-connection
|
||||
|
|
|
@ -60,6 +60,7 @@
|
|||
render-revision-package-derivations
|
||||
render-revision-fixed-output-package-derivations
|
||||
render-revision-package-derivation-outputs
|
||||
render-revision-system-tests
|
||||
render-unknown-revision
|
||||
render-view-revision))
|
||||
|
||||
|
|
Loading…
Reference in a new issue