diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-12-16 20:12:58 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-12-16 20:12:58 +0000 |
| commit | e6b20746beeb9574f708f0e5812d1aede10c00bc (patch) | |
| tree | 23c4ad7fbd2c15a4344e408cc618a1f55fb3ae90 | |
| parent | 5b54259974b72c5ee28cadc4cec706f43c9a7b10 (diff) | |
| download | data-service-e6b20746beeb9574f708f0e5812d1aede10c00bc.tar data-service-e6b20746beeb9574f708f0e5812d1aede10c00bc.tar.gz | |
Deduplicate the build status span code in html-utils
| -rw-r--r-- | guix-data-service/web/html-utils.scm | 16 |
1 files changed, 1 insertions, 15 deletions
diff --git a/guix-data-service/web/html-utils.scm b/guix-data-service/web/html-utils.scm index af8c2d8..411f59f 100644 --- a/guix-data-service/web/html-utils.scm +++ b/guix-data-service/web/html-utils.scm @@ -84,18 +84,4 @@ ,(build-status-value->display-string status))) (define (build-status-alist->build-icon status) - `(span (@ (class ,(string-append - "label label-" - (assoc-ref - '(("scheduled" . "info") - ("started" . "primary") - ("succeeded" . "success") - ("failed" . "danger") - ("failed-dependency" . "warning") - ("failed-other" . "danger") - ("canceled" . "default") - ("" . "default")) - (assoc-ref status "status")))) - (style "display: inline-block; font-size: 1.2em; margin-top: 0.4em;")) - ,(build-status-value->display-string - (assoc-ref status "status")))) + (build-status-span (assoc-ref status "status"))) |