diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-12-26 13:38:58 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-12-26 13:38:58 +0000 |
| commit | 1887ad2b4f3597c1d7056162bbeb06b83f6aa593 (patch) | |
| tree | d43a39e9b71106320e6d46ec9f21bd16d0c6924d /guix-data-service | |
| parent | 1fd5c8e379d2ada26ddcc8414eeb6d2b1a4bdf0f (diff) | |
| download | data-service-1887ad2b4f3597c1d7056162bbeb06b83f6aa593.tar data-service-1887ad2b4f3597c1d7056162bbeb06b83f6aa593.tar.gz | |
Support strings or symbol keys in build-status-alist->build
Diffstat (limited to 'guix-data-service')
| -rw-r--r-- | guix-data-service/web/html-utils.scm | 3 |
1 files changed, 2 insertions, 1 deletions
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 |