diff options
| -rw-r--r-- | guix-data-service/web/revision/controller.scm | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/guix-data-service/web/revision/controller.scm b/guix-data-service/web/revision/controller.scm index b1790be..06097f9 100644 --- a/guix-data-service/web/revision/controller.scm +++ b/guix-data-service/web/revision/controller.scm @@ -619,7 +619,22 @@ mime-types) ((application/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 (render-html #:sxml (view-revision-package-substitute-availability |