diff options
Diffstat (limited to 'guix-data-service/web/view/html.scm')
| -rw-r--r-- | guix-data-service/web/view/html.scm | 58 |
1 files changed, 0 insertions, 58 deletions
diff --git a/guix-data-service/web/view/html.scm b/guix-data-service/web/view/html.scm index c514f4f..487954f 100644 --- a/guix-data-service/web/view/html.scm +++ b/guix-data-service/web/view/html.scm @@ -345,64 +345,6 @@ "No information yet"))))))))) branches-with-most-recent-commits)))) -(define (view-builds stats builds) - (layout - #:body - `(,(header) - (div - (@ (class "container")) - (div - (@ (class "row")) - (div - (@ (class "col-sm-12")) - (h1 "Builds") - (table - (@ (class "table")) - (thead - (tr - (th (@ (class "col-md-2")) "Status") - (th (@ (class "col-md-2")) "Count"))) - (tbody - ,@(map - (match-lambda - ((status count) - `(tr - (td ,(build-status-span status)) - (td ,count)))) - stats))))) - (div - (@ (class "row")) - (div - (@ (class "col-sm-12")) - (table - (@ (class "table")) - (thead - (tr - (th (@ (class "col-xs-2")) "Status") - (th (@ (class "col-xs-9")) "Derivation") - (th (@ (class "col-xs-1")) "Started at") - (th (@ (class "col-xs-1")) "Finished at") - (th (@ (class "col-xs-1")) ""))) - (tbody - ,@(map - (match-lambda - ((build-id build-server-url derivation-file-name - timestamp status) - `(tr - (td (@ (class "text-center")) - ,(build-status-span status)) - (td (a (@ (href ,derivation-file-name)) - ,(display-store-item-short derivation-file-name))) - (td ,timestamp) - (td (a (@ (href ,(simple-format - #f "~Abuild/~A" - build-server-url - (string-drop - derivation-file-name - (string-length "/gnu/store/"))))) - "View build on " ,build-server-url))))) - builds))))))))) - (define (build-status-value->display-string value) (assoc-ref '(("scheduled" . "Scheduled") |