guix/guix-cuirass
2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/guix-cuirass.git synced 2023-12-14 06:03:04 +01:00
Code Issues Releases Wiki Activity

Allow unconditionnal build restart.

Browse source 
* src/cuirass/templates.scm (build-details): Allow unconditionnal build
restart.
This commit is contained in:
Mathieu Othacehe 2021-02-18 14:57:42 +01:00
parent 4e0152f7a4
commit 04185edba6
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 13 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
src/cuirass/templates.scm
View file

@ -293,21 +293,19 @@ system whose names start with " (code "guile-") ":" (br)
(td ,(time->string (assq-ref build #:stoptime)))))
`((p (@ (class "lead")) "Build details"
,@(if (>= status 0)
`((div (@ (class "dropdown float-right"))
(a (@ (class "btn btn-warning dropdown-toggle")
(href "#")
(data-toggle "dropdown")
(role "button")
(aria-haspopup "true")
(aria-expanded "false"))
"Action")
(div (@ (class "dropdown-menu"))
(a (@ (class "dropdown-item")
(href "/admin/build/"
,(assq-ref build #:id) "/restart"))
"Restart"))))
'()))
(div (@ (class "dropdown float-right"))
(a (@ (class "btn btn-warning dropdown-toggle")
(href "#")
(data-toggle "dropdown")
(role "button")
(aria-haspopup "true")
(aria-expanded "false"))
"Action")
(div (@ (class "dropdown-menu"))
(a (@ (class "dropdown-item")
(href "/admin/build/"
,(assq-ref build #:id) "/restart"))
"Restart"))))
(table
(@ (class "table table-sm table-hover"))
(tbody