aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2019-06-17 11:21:36 +0100
committerChristopher Baines <mail@cbaines.net>2019-06-17 11:21:36 +0100
commit9c18c90505e95233ac8cb2a77cef4ccb54776ead (patch)
treedcf77c81b25d0a6b8fffee27097357255fa7e9ca
parentb1c0ec6c97ce38df90e8389aa1323e14290fdbf2 (diff)
downloaddata-service-9c18c90505e95233ac8cb2a77cef4ccb54776ead.tar
data-service-9c18c90505e95233ac8cb2a77cef4ccb54776ead.tar.gz
Fix indicating if a revision is queued for processing
-rw-r--r--guix-data-service/web/view/html.scm8
1 files changed, 5 insertions, 3 deletions
diff --git a/guix-data-service/web/view/html.scm b/guix-data-service/web/view/html.scm
index 03bd9b1..fbd3241 100644
--- a/guix-data-service/web/view/html.scm
+++ b/guix-data-service/web/view/html.scm
@@ -1420,9 +1420,11 @@
(h1 "Unknown revision")
(p "No known revision with commit "
(strong (samp ,commit-hash))
- ,(if job
- " and it is not currently queued for processing"
- " but it is queued for processing"))))))
+ ,(match job
+ (()
+ " and it is not currently queued for processing")
+ ((job)
+ " but it is queued for processing")))))))
(define (compare-unknown-commit base-commit target-commit
base-exists? target-exists?