diff options
Diffstat (limited to 'guix-data-service/web/revision/html.scm')
| -rw-r--r-- | guix-data-service/web/revision/html.scm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/guix-data-service/web/revision/html.scm b/guix-data-service/web/revision/html.scm index 0b9d4f5..412eb6e 100644 --- a/guix-data-service/web/revision/html.scm +++ b/guix-data-service/web/revision/html.scm @@ -22,6 +22,7 @@ #:use-module (texinfo) #:use-module (texinfo html) #:use-module (json) + #:use-module (guix-data-service database) #:use-module (guix-data-service model utils) #:use-module (guix-data-service web util) #:use-module (guix-data-service web html-utils) @@ -271,7 +272,7 @@ git-repositories))) '()) ,@(if (> (vector-length licenses) 0) - `((dt ,(if (eq? (vector-length licenses) 1) + `((dt ,(if (= (vector-length licenses) 1) "License" "Licenses")) (dd (ul @@ -2042,7 +2043,7 @@ figure { (td (dl ,@(if - (null? hash-algorithm) + (NULL? hash-algorithm) (append-map (match-lambda ((hash . nars) @@ -2081,10 +2082,10 @@ figure { (build-server-count (length build-servers))) (cond - ((or (eq? hash-count 0) - (eq? build-server-count 1)) + ((or (= hash-count 0) + (= build-server-count 1)) "Unknown") - ((eq? hash-count 1) + ((= hash-count 1) '(span (@ (class "text-success")) "Matching")) ((> hash-count 1) |