diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-03-26 09:14:00 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-03-26 09:14:00 +0000 |
| commit | 00bc6535f97cac86a91339f492256888d1fff512 (patch) | |
| tree | 7b228ae131c39be19066898c5377d19f7ea0d4cd | |
| parent | d0eff9da5d0c286fc387dc3e11fba0d3cc81561f (diff) | |
| download | data-service-00bc6535f97cac86a91339f492256888d1fff512.tar data-service-00bc6535f97cac86a91339f492256888d1fff512.tar.gz | |
Add an unimplemented JSON response for the branch page
| -rw-r--r-- | guix-data-service/web/repository/controller.scm | 40 |
1 files changed, 23 insertions, 17 deletions
diff --git a/guix-data-service/web/repository/controller.scm b/guix-data-service/web/repository/controller.scm index f31c41f..2776773 100644 --- a/guix-data-service/web/repository/controller.scm +++ b/guix-data-service/web/repository/controller.scm @@ -70,23 +70,29 @@ `((after_date ,parse-datetime) (before_date ,parse-datetime) (limit_results ,parse-result-limit #:default 100))))) - (render-html - #:sxml (if (any-invalid-query-parameters? parsed-query-parameters) - (view-branch repository-id - branch-name parsed-query-parameters '()) - (view-branch - repository-id - branch-name - parsed-query-parameters - (most-recent-commits-for-branch - conn - (string->number repository-id) - branch-name - #:limit (assq-ref parsed-query-parameters 'limit_results) - #:after-date (assq-ref parsed-query-parameters - 'after_date) - #:before-date (assq-ref parsed-query-parameters - 'before_date))))))) + (case (most-appropriate-mime-type + '(application/json text/html) + mime-types) + ((application/json) + (render-json '((error . "unimplemented")))) ; TODO + (else + (render-html + #:sxml (if (any-invalid-query-parameters? parsed-query-parameters) + (view-branch repository-id + branch-name parsed-query-parameters '()) + (view-branch + repository-id + branch-name + parsed-query-parameters + (most-recent-commits-for-branch + conn + (string->number repository-id) + branch-name + #:limit (assq-ref parsed-query-parameters 'limit_results) + #:after-date (assq-ref parsed-query-parameters + 'after_date) + #:before-date (assq-ref parsed-query-parameters + 'before_date))))))))) (('GET "repository" repository-id "branch" branch-name "package" package-name) (let ((package-versions (package-versions-for-branch conn |