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

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

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