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

Include data in JSON response for the branch page

Browse source 
Signed-off-by: Christopher Baines <mail@cbaines.net>
This commit is contained in:
spf50 2020-03-28 02:10:23 +01:00 • committed by Christopher Baines
parent d1c243f7fd
commit f980b6c2ac
1 changed files with 16 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -74,7 +74,22 @@
'(application/json text/html) '(application/json text/html)
mime-types) mime-types)
((application/json) ((application/json)
(render-json '((error . "unimplemented")))) ; TODO (render-json
`((revisions
. ,(list->vector
(map (match-lambda
((date commit-hash _ _)
`((date . ,date)
(commit-hash . ,commit-hash))))
(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))))))))
(else (else
(render-html (render-html
#:sxml (if (any-invalid-query-parameters? parsed-query-parameters) #:sxml (if (any-invalid-query-parameters? parsed-query-parameters)