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

Handle missing derivations when rendering the comparison

Browse source
This commit is contained in:
Christopher Baines 2019-03-24 17:36:10 +00:00
parent 5dbdfe1133
commit 0c6c413804
Signed by: cbaines
GPG key ID: 5E28A33B0B84F577
1 changed files with 14 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -756,16 +756,20 @@
,system)) ,system))
(td (samp (@ (style "white-space: nowrap;")) (td (samp (@ (style "white-space: nowrap;"))
,target)) ,target))
(td (a (@ (style "display: block;") (td ,@(if base-derivation-file-name
(href ,base-derivation-file-name)) `((a (@ (style "display: block;")
(span (@ (class "text-danger glyphicon glyphicon-minus pull-left") (href ,base-derivation-file-name))
(style "font-size: 1.5em; padding-right: 0.4em;"))) (span (@ (class "text-danger glyphicon glyphicon-minus pull-left")
,(display-store-item-short base-derivation-file-name)) (style "font-size: 1.5em; padding-right: 0.4em;")))
(a (@ (style "display: block;") ,(display-store-item-short base-derivation-file-name)))
(href ,target-derivation-file-name)) '())
(span (@ (class "text-success glyphicon glyphicon-plus pull-left") ,@(if target-derivation-file-name
(style "font-size: 1.5em; padding-right: 0.4em;"))) `((a (@ (style "display: block; clear: left;")
,(display-store-item-short target-derivation-file-name))))))) (href ,target-derivation-file-name))
(span (@ (class "text-success glyphicon glyphicon-plus pull-left")
(style "font-size: 1.5em; padding-right: 0.4em;")))
,(and=> target-derivation-file-name display-store-item-short)))
'()))))))
system-and-versions))) system-and-versions)))
`((tr (td (@ (rowspan , (length system-and-versions))) `((tr (td (@ (rowspan , (length system-and-versions)))