mirror of
git://git.savannah.gnu.org/guix/data-service.git
synced 2023-12-14 03:23:03 +01:00
Add a JSON output for the revision channel instances
This commit is contained in:
parent
c2ba4e7142
commit
f83cff7107
1 changed files with 8 additions and 1 deletions
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue