diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-10-09 19:31:51 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-10-09 19:31:51 +0100 |
| commit | 6023aa8caf6e7098109b756ca490ca73d0cbe559 (patch) | |
| tree | 42dede4b8e012b582481bbfe5999c41d8a5d7d93 /guix-data-service/web/revision | |
| parent | 51204aefca14a0eb6777f9fb6ee676675c41c49b (diff) | |
| download | data-service-6023aa8caf6e7098109b756ca490ca73d0cbe559.tar data-service-6023aa8caf6e7098109b756ca490ca73d0cbe559.tar.gz | |
Improve select-job-for-commit
It now returns #f or a list, rather than the empty list or a nested list.
Diffstat (limited to 'guix-data-service/web/revision')
| -rw-r--r-- | guix-data-service/web/revision/html.scm | 61 |
1 files changed, 30 insertions, 31 deletions
diff --git a/guix-data-service/web/revision/html.scm b/guix-data-service/web/revision/html.scm index 32cd3ec..77a3e13 100644 --- a/guix-data-service/web/revision/html.scm +++ b/guix-data-service/web/revision/html.scm @@ -2147,36 +2147,35 @@ figure { `(,(header) (div (@ (class "container")) - ,@(match job - (() - `((h1 "Unknown revision") - (p "No known revision with commit " - (strong (samp ,commit-hash))))) - ((jobs ...) - `((div - (@ (class "row")) - (div - (@ (class "col-md-12")) - (h1 (@ (style "white-space: nowrap;")) - "Revision " (samp ,commit-hash)))) - (div - (@ (class "row")) + ,@(if job + `((div + (@ (class "row")) + (div + (@ (class "col-md-12")) + (h1 (@ (style "white-space: nowrap;")) + "Revision " (samp ,commit-hash)))) (div - (@ (class "col-md-6")) - (h2 "Packages") - (strong (@ (class "text-center") - (style "font-size: 2em; display: block;")) - "Unknown") + (@ (class "row")) + (div + (@ (class "col-md-6")) + (h2 "Packages") + (strong (@ (class "text-center") + (style "font-size: 2em; display: block;")) + "Unknown") + + ,@(if (null? git-repositories-and-branches) + '() + (view-revision/git-repositories + git-repositories-and-branches + commit-hash)) + ,@(view-revision/jobs-and-events jobs-and-events)) + (div + (@ (class "col-md-6")) + (h3 "Derivations") + (strong (@ (class "text-center") + (style "font-size: 2em; display: block;")) + "Unknown")))) + `((h1 "Unknown revision") + (p "No known revision with commit " + (strong (samp ,commit-hash))))))))) - ,@(if (null? git-repositories-and-branches) - '() - (view-revision/git-repositories - git-repositories-and-branches - commit-hash)) - ,@(view-revision/jobs-and-events jobs-and-events)) - (div - (@ (class "col-md-6")) - (h3 "Derivations") - (strong (@ (class "text-center") - (style "font-size: 2em; display: block;")) - "Unknown")))))))))) |