cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Support strings or symbol keys in build-status-alist->build

Browse source
This commit is contained in:
Christopher Baines 2020-12-26 13:38:58 +00:00
parent 1fd5c8e379
commit 1887ad2b4f
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
guix-data-service/web/html-utils.scm
View file

@ -116,7 +116,8 @@
,(build-status-value->display-string status))) ,(build-status-value->display-string status)))
(define (build-status-alist->build-icon 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) (define (build-status-label status count)
`(span (@ (class ,(string-append `(span (@ (class ,(string-append