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)
(before_date ,parse-datetime)
(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
#:sxml (if (any-invalid-query-parameters? parsed-query-parameters)
(view-branch repository-id
@ -86,7 +92,7 @@
#:after-date (assq-ref parsed-query-parameters
'after_date)
#:before-date (assq-ref parsed-query-parameters
'before_date)))))))
'before_date)))))))))
(('GET "repository" repository-id "branch" branch-name "package" package-name)
(let ((package-versions
(package-versions-for-branch conn