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

Remove left-over procedure.

Browse source 
* src/cuirass/templates.scm (workers-status): Remove unused "build-row"
procedure.
This commit is contained in:
Mathieu Othacehe 2021-01-30 18:02:35 +01:00
parent 5f770638bb
commit 6c0298e12c
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 0 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/cuirass/templates.scm
View file

@ -1028,18 +1028,6 @@ completed builds divided by the time required to build them.")
#:colors (list "#3e95cd")))))
(define (workers-status workers builds)
(define (build-row build)
`(tr
(th (@ (scope "row"))
(a (@ (href "/build/" ,(assq-ref build #:id) "/details"))
,(assq-ref build #:id)))
(td ,(assq-ref build #:job-name))
(td ,(time->string
(assq-ref build #:starttime)))
(td ,(assq-ref build #:system))
(td (a (@ (href "/build/" ,(assq-ref build #:id) "/log/raw"))
"raw"))))
(define (machine-row machine)
(let* ((workers (filter (lambda (worker)
(string=? (worker-machine worker)