diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-02-01 13:12:01 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-02-01 13:12:01 +0100 |
| commit | 6bc753dd0e3f277128a1fe0687720fd1e66b430f (patch) | |
| tree | e51c18b0f3058f123ce0ee5130851fe3a800c983 /guix-data-service/web/build-server/html.scm | |
| parent | e5e9442b44ec03918501d85f991b65cd5bb545c6 (diff) | |
| download | data-service-6bc753dd0e3f277128a1fe0687720fd1e66b430f.tar data-service-6bc753dd0e3f277128a1fe0687720fd1e66b430f.tar.gz | |
Add a build servers page
Diffstat (limited to 'guix-data-service/web/build-server/html.scm')
| -rw-r--r-- | guix-data-service/web/build-server/html.scm | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/guix-data-service/web/build-server/html.scm b/guix-data-service/web/build-server/html.scm index 6936e79..bb15e11 100644 --- a/guix-data-service/web/build-server/html.scm +++ b/guix-data-service/web/build-server/html.scm @@ -20,6 +20,7 @@ #:use-module (guix-data-service web view html) #:use-module (guix-data-service web html-utils) #:export (view-build + view-build-servers view-build-server view-signing-key)) @@ -89,6 +90,31 @@ required-failed-builds)))))) '()))))) +(define (view-build-servers build-servers) + (layout + #:body + `(,(header) + (div + (@ (class "container")) + (div + (@ (class "row")) + (div + (@ (class "col-sm-12")) + (h2 "Build servers") + ,@(map + (match-lambda + ((id url lookup-all-derivations?) + `(dl + (@ (class "dl-horizontal")) + (dt "URL") + (dd (a (@ (href ,url)) + ,url)) + (dt "Lookup all " (br) "derivations?") + (dd ,(if lookup-all-derivations? + "Yes" + "No"))))) + build-servers))))))) + (define (view-build-server build-server) (layout #:body |