Add missing revision handling

As previously the pages would render, but with no data.
This commit is contained in:
Christopher Baines 2019-05-19 22:31:07 +01:00
parent cc0ecdc055
commit 6add08b109
2 changed files with 71 additions and 29 deletions

View file

@ -29,6 +29,7 @@
#:use-module (texinfo html)
#:use-module (json)
#:export (index
unknown-revision
view-statistics
view-revision-package-and-version
view-revision
@ -1388,6 +1389,19 @@
(take data 2))
(vlist->list target-packages-vhash))))))))))))
(define (unknown-revision commit-hash job)
(layout
#:body
`(,(header)
(div
(@ (class "container"))
(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"))))))
(define (compare-unknown-commit base-commit target-commit
base-exists? target-exists?
base-job target-job)