diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-07-27 09:12:25 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-07-27 09:12:25 +0100 |
| commit | 75226a1499117d551e859491cc7abcf634d09a98 (patch) | |
| tree | 87e3bab32e239641411950ba74983cff5ebd7f9a /guix-data-service/web | |
| parent | 7f8ffb4beaf25b02bea601b2a42cea1dc8720e0a (diff) | |
| download | data-service-75226a1499117d551e859491cc7abcf634d09a98.tar data-service-75226a1499117d551e859491cc7abcf634d09a98.tar.gz | |
Fix the latest-processed-revision pages
Diffstat (limited to 'guix-data-service/web')
| -rw-r--r-- | guix-data-service/web/controller.scm | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/guix-data-service/web/controller.scm b/guix-data-service/web/controller.scm index 3dec210..929d6e3 100644 --- a/guix-data-service/web/controller.scm +++ b/guix-data-service/web/controller.scm @@ -716,9 +716,9 @@ 'after_date) #:before-date (assq-ref parsed-query-parameters 'before_date))))))) - (('GET "branch" branch-name "latest-processed-revision") + (('GET "repository" repository-id "branch" branch-name "latest-processed-revision") (let ((commit-hash - (latest-processed-commit-for-branch conn branch-name))) + (latest-processed-commit-for-branch conn repository-id branch-name))) (if commit-hash (render-view-revision mime-types conn @@ -730,9 +730,9 @@ (render-unknown-revision mime-types conn commit-hash)))) - (('GET "branch" branch-name "latest-processed-revision" "packages") + (('GET "repository" repository-id "branch" branch-name "latest-processed-revision" "packages") (let ((commit-hash - (latest-processed-commit-for-branch conn branch-name))) + (latest-processed-commit-for-branch conn repository-id branch-name))) (if commit-hash (let ((parsed-query-parameters (guard-against-mutually-exclusive-query-parameters @@ -761,14 +761,15 @@ (samp ,branch-name)) #:header-link (string-append + "/repository/" repository-id "/branch/" branch-name "/latest-processed-revision"))) (render-unknown-revision mime-types conn commit-hash)))) - (('GET "branch" branch-name "latest-processed-revision" "package" name version) + (('GET "repository" repository-id "branch" branch-name "latest-processed-revision" "package" name version) (let ((commit-hash - (latest-processed-commit-for-branch conn branch-name))) + (latest-processed-commit-for-branch conn repository-id branch-name))) (if commit-hash (render-revision-package mime-types conn @@ -780,6 +781,7 @@ (samp ,branch-name)) #:header-link (string-append + "/repository/" repository-id "/branch/" branch-name "/latest-processed-revision")) (render-unknown-revision mime-types |