diff --git a/guix-data-service/web/html-utils.scm b/guix-data-service/web/html-utils.scm index d38c448..ab2fa85 100644 --- a/guix-data-service/web/html-utils.scm +++ b/guix-data-service/web/html-utils.scm @@ -67,7 +67,8 @@ ("failed-dependency" . "Failed (dependency)") ("failed-other" . "Failed (other)") ("canceled" . "Canceled") - ("" . "Unknown")) + ("" . "Unknown") + (#f . "Unknown")) value)) (define (build-url build-server-id build-server-build-id derivation-file-name) @@ -110,7 +111,8 @@ ("failed-dependency" . "warning") ("failed-other" . "danger") ("canceled" . "default") - ("" . "default")) + ("" . "default") + (#f . "default")) status))) (style "display: inline-block; font-size: 1.2em; margin-top: 0.4em; margin-bottom: 0.4em;")) ,(build-status-value->display-string status)))