From 1887ad2b4f3597c1d7056162bbeb06b83f6aa593 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sat, 26 Dec 2020 13:38:58 +0000 Subject: [PATCH] Support strings or symbol keys in build-status-alist->build --- guix-data-service/web/html-utils.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/guix-data-service/web/html-utils.scm b/guix-data-service/web/html-utils.scm index 5c0730d..d38c448 100644 --- a/guix-data-service/web/html-utils.scm +++ b/guix-data-service/web/html-utils.scm @@ -116,7 +116,8 @@ ,(build-status-value->display-string status))) (define (build-status-alist->build-icon status) - (build-status-span (assoc-ref status "status"))) + (build-status-span (or (assoc-ref status "status") + (assq-ref status 'status)))) (define (build-status-label status count) `(span (@ (class ,(string-append