[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/04: Support strings or symbol keys in build-status-alist->build
|
From: |
Christopher Baines |
|
Subject: |
02/04: Support strings or symbol keys in build-status-alist->build |
|
Date: |
Sat, 26 Dec 2020 08:41:46 -0500 (EST) |
cbaines pushed a commit to branch master
in repository data-service.
commit 1887ad2b4f3597c1d7056162bbeb06b83f6aa593
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Sat Dec 26 13:38:58 2020 +0000
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