guix/data-service
2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/data-service.git synced 2023-12-14 03:23:03 +01:00
Code Issues Releases Wiki Activity

Support the system-tests page for the latest processed revision

Browse source
This commit is contained in:
Christopher Baines 2021-03-05 13:52:32 +00:00
parent 52ac92e7c7
commit be2d554aae
2 changed files with 21 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
guix-data-service/web/repository/controller.scm
View file

@ -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

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

@ -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))