guix/data-service
2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/data-service.git synced 2023-12-14 03:23:03 +01:00
Code Issues Releases Wiki Activity

Add a JSON output for the revision channel instances

Browse source
This commit is contained in:
Christopher Baines 2020-04-24 10:46:20 +01:00
parent c2ba4e7142
commit f83cff7107
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
guix-data-service/web/revision/controller.scm
View file

@ -417,7 +417,14 @@
mime-types)
((application/json)
(render-json
'())) ; TODO
`((channel_instances . ,(list->vector
(map
(match-lambda
((system derivation-file-name builds)
`((system . ,system)
(derivation . ,derivation-file-name)
(builds . ,(list->vector builds)))))
channel-instances))))))
(else
(render-html
#:sxml (view-revision-channel-instances