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

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

@ -70,23 +70,29 @@
`((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)))))
(render-html (case (most-appropriate-mime-type
#:sxml (if (any-invalid-query-parameters? parsed-query-parameters) '(application/json text/html)
(view-branch repository-id mime-types)
branch-name parsed-query-parameters '()) ((application/json)
(view-branch (render-json '((error . "unimplemented")))) ; TODO
repository-id (else
branch-name (render-html
parsed-query-parameters #:sxml (if (any-invalid-query-parameters? parsed-query-parameters)
(most-recent-commits-for-branch (view-branch repository-id
conn branch-name parsed-query-parameters '())
(string->number repository-id) (view-branch
branch-name repository-id
#:limit (assq-ref parsed-query-parameters 'limit_results) branch-name
#:after-date (assq-ref parsed-query-parameters parsed-query-parameters
'after_date) (most-recent-commits-for-branch
#:before-date (assq-ref parsed-query-parameters conn
'before_date))))))) (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) (('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