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

Implement the JSON response for package substitute availability

Browse source
This commit is contained in:
Christopher Baines 2022-09-14 10:37:33 +01:00
parent e3062abf33
commit ec3dba4894
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/revision/controller.scm
View file

@ -619,7 +619,22 @@
mime-types) mime-types)
((application/json) ((application/json)
(render-json (render-json
'())) ; TODO `((commit . ,commit-hash)
(substitute_servers
. ,(list->vector
(map (match-lambda
((build-server-id . data)
`((server . ((url . ,(assoc-ref build-server-urls
build-server-id))))
(availability
. ,(list->vector
(map (match-lambda
((system-and-target . data)
`((system . ,(assq-ref system-and-target 'system))
(target . ,(assq-ref system-and-target 'target))
,@data)))
data))))))
substitute-availability))))))
(else (else
(render-html (render-html
#:sxml (view-revision-package-substitute-availability #:sxml (view-revision-package-substitute-availability