diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-04-24 10:46:20 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-04-24 10:46:20 +0100 |
| commit | f83cff7107e5aacba1cd8f0c971cd9c27451e720 (patch) | |
| tree | 765a83cc60762e9f7fac22dbad81130b5e203701 /guix-data-service/web/revision | |
| parent | c2ba4e714243d538880a8b2a34555d579610f074 (diff) | |
| download | data-service-f83cff7107e5aacba1cd8f0c971cd9c27451e720.tar data-service-f83cff7107e5aacba1cd8f0c971cd9c27451e720.tar.gz | |
Add a JSON output for the revision channel instances
Diffstat (limited to 'guix-data-service/web/revision')
| -rw-r--r-- | guix-data-service/web/revision/controller.scm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/guix-data-service/web/revision/controller.scm b/guix-data-service/web/revision/controller.scm index 9f8592a..c48da0f 100644 --- a/guix-data-service/web/revision/controller.scm +++ b/guix-data-service/web/revision/controller.scm @@ -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 |