diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-03-05 13:52:32 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-03-05 13:52:32 +0000 |
| commit | be2d554aae9e93c89f952050daed223cf7d13cfb (patch) | |
| tree | 5a34123580078130908e553e77c4c2f646f871a3 | |
| parent | 52ac92e7c7636808556cce7db9a608a363dc7dfc (diff) | |
| download | data-service-be2d554aae9e93c89f952050daed223cf7d13cfb.tar data-service-be2d554aae9e93c89f952050daed223cf7d13cfb.tar.gz | |
Support the system-tests page for the latest processed revision
| -rw-r--r-- | guix-data-service/web/repository/controller.scm | 20 | ||||
| -rw-r--r-- | guix-data-service/web/revision/controller.scm | 1 |
2 files changed, 21 insertions, 0 deletions
diff --git a/guix-data-service/web/repository/controller.scm b/guix-data-service/web/repository/controller.scm index dcc0992..c9f90d1 100644 --- a/guix-data-service/web/repository/controller.scm +++ b/guix-data-service/web/repository/controller.scm @@ -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 diff --git a/guix-data-service/web/revision/controller.scm b/guix-data-service/web/revision/controller.scm index ec890bf..9ab702d 100644 --- a/guix-data-service/web/revision/controller.scm +++ b/guix-data-service/web/revision/controller.scm @@ -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)) |