branch master updated: Remove left-over procedure.

[Mathieu Othacehe]

This is an automated email from the git hooks/post-receive script.

mothacehe pushed a commit to branch master
in repository guix-cuirass.

The following commit(s) were added to refs/heads/master by this push:
     new 6c0298e  Remove left-over procedure.
6c0298e is described below

commit 6c0298e12cefa363db1bfec725e008ca3252275e
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Sat Jan 30 18:02:35 2021 +0100

    Remove left-over procedure.
    
    * src/cuirass/templates.scm (workers-status): Remove unused "build-row"
    procedure.
---
 src/cuirass/templates.scm | 12 ------------
 1 file changed, 12 deletions(-)

diff --git a/src/cuirass/templates.scm b/src/cuirass/templates.scm
index 0e3898a..b9a3e2f 100644
--- a/src/cuirass/templates.scm
+++ b/src/cuirass/templates.scm
@@ -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)