Fix another squee upgrade issue

This commit is contained in:
Christopher Baines 2021-01-03 09:43:24 +00:00
parent bd8390673e
commit e476239479

View file

@ -67,7 +67,8 @@
("failed-dependency" . "Failed (dependency)") ("failed-dependency" . "Failed (dependency)")
("failed-other" . "Failed (other)") ("failed-other" . "Failed (other)")
("canceled" . "Canceled") ("canceled" . "Canceled")
("" . "Unknown")) ("" . "Unknown")
(#f . "Unknown"))
value)) value))
(define (build-url build-server-id build-server-build-id derivation-file-name) (define (build-url build-server-id build-server-build-id derivation-file-name)
@ -110,7 +111,8 @@
("failed-dependency" . "warning") ("failed-dependency" . "warning")
("failed-other" . "danger") ("failed-other" . "danger")
("canceled" . "default") ("canceled" . "default")
("" . "default")) ("" . "default")
(#f . "default"))
status))) status)))
(style "display: inline-block; font-size: 1.2em; margin-top: 0.4em; margin-bottom: 0.4em;")) (style "display: inline-block; font-size: 1.2em; margin-top: 0.4em; margin-bottom: 0.4em;"))
,(build-status-value->display-string status))) ,(build-status-value->display-string status)))