cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add an unimplemented JSON response for the branch page

Browse source
This commit is contained in:
Christopher Baines 2020-03-26 09:14:00 +00:00
parent d0eff9da5d
commit 00bc6535f9
1 changed files with 23 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -70,6 +70,12 @@
`((after_date ,parse-datetime) `((after_date ,parse-datetime)
(before_date ,parse-datetime) (before_date ,parse-datetime)
(limit_results ,parse-result-limit #:default 100))))) (limit_results ,parse-result-limit #:default 100)))))
(case (most-appropriate-mime-type
'(application/json text/html)
mime-types)
((application/json)
(render-json '((error . "unimplemented")))) ; TODO
(else
(render-html (render-html
#:sxml (if (any-invalid-query-parameters? parsed-query-parameters) #:sxml (if (any-invalid-query-parameters? parsed-query-parameters)
(view-branch repository-id (view-branch repository-id
@ -86,7 +92,7 @@
#:after-date (assq-ref parsed-query-parameters #:after-date (assq-ref parsed-query-parameters
'after_date) 'after_date)
#:before-date (assq-ref parsed-query-parameters #:before-date (assq-ref parsed-query-parameters
'before_date))))))) 'before_date)))))))))
(('GET "repository" repository-id "branch" branch-name "package" package-name) (('GET "repository" repository-id "branch" branch-name "package" package-name)
(let ((package-versions (let ((package-versions
(package-versions-for-branch conn (package-versions-for-branch conn