Add missing revision handling
As previously the pages would render, but with no data.
This commit is contained in:
parent
cc0ecdc055
commit
6add08b109
2 changed files with 71 additions and 29 deletions
|
|
@ -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)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue