cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Only show the Compare button when it'll work

Browse source 
On the branch page.
This commit is contained in:
Christopher Baines 2019-08-05 21:24:07 +01:00
parent 9e80bda4f9
commit 82c3e8942b
1 changed files with 11 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

15
guix-data-service/web/view/html.scm
View file

@ -799,7 +799,8 @@
(tbody
,@(map
(match-lambda*
(((commit date revision-exists? job-events) previous-commit)
(((commit date revision-exists? job-events)
(previous-commit previous-revision-exists?))
`(tr
(td ,date)
(td ,@(if (string=? commit "NULL")
@ -819,7 +820,9 @@
(else
'(span (@ (class "label label-default"))
"No information yet"))))))
,@(if previous-commit
,@(if (and previous-commit
revision-exists?
previous-revision-exists?)
`((td
(@ (style "vertical-align: middle;")
(rowspan "2"))
@ -835,8 +838,12 @@
"⇕ Compare"))))
'()))))
branch-commits
(append (map first (cdr branch-commits))
(list #f)))))))))))
(append (map (match-lambda
((commit date revision-exists? job-events)
(list commit
revision-exists?)))
(cdr branch-commits))
'((#f #f))))))))))))
(define (view-builds stats builds)