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

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
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) mime-types)
((application/json) ((application/json)
(render-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 (else
(render-html (render-html
#:sxml (view-revision-channel-instances #:sxml (view-revision-channel-instances