diff options
Diffstat (limited to 'guix-data-service/web/view')
-rw-r--r-- | guix-data-service/web/view/html.scm | 19 |
1 files changed, 17 insertions, 2 deletions
diff --git a/guix-data-service/web/view/html.scm b/guix-data-service/web/view/html.scm index 6af3142..9882877 100644 --- a/guix-data-service/web/view/html.scm +++ b/guix-data-service/web/view/html.scm @@ -275,13 +275,28 @@ (td ,file-name)))) target-derivations))))))) -(define (compare-unknown-commit commit) +(define (compare-unknown-commit base-commit target-commit + base-exists? target-exists? + base-job target-job) (layout #:body `(,(header) (div (@ (class "container")) (h1 "Unknown commit") - (p "No known revision with commit " (strong (samp ,commit))))))) + ,(if base-exists? + '() + `(p "No known revision with commit " + (strong (samp ,base-commit)) + ,(if (null? base-job) + " and it is not currently queued for processing" + " but it is queued for processing"))) + ,(if target-exists? + '() + `(p "No known revision with commit " + (strong (samp ,target-commit)) + ,(if (null? target-job) + " and it is not currently queued for processing" + " but it is queued for processing"))))))) (define (error-page message) (layout |