diff options
Diffstat (limited to 'guix-data-service/web/build-server/controller.scm')
| -rw-r--r-- | guix-data-service/web/build-server/controller.scm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/guix-data-service/web/build-server/controller.scm b/guix-data-service/web/build-server/controller.scm index 29f8b7a..c9db9a0 100644 --- a/guix-data-service/web/build-server/controller.scm +++ b/guix-data-service/web/build-server/controller.scm @@ -78,6 +78,12 @@ "No build found for this build server and derivation.") #:code 404))))) +(define (render-build-servers mime-types + build-servers) + (render-html + #:sxml + (view-build-servers build-servers))) + (define (render-build-server mime-types build-server) (render-html @@ -191,6 +197,10 @@ conn secret-key-base) (match method-and-path-components + (('GET "build-servers") + (let ((build-servers (select-build-servers conn))) + (render-build-servers mime-types + build-servers))) (('GET "build-server" build-server-id) (let ((build-server (select-build-server conn (string->number build-server-id)))) |