[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

branch master updated: Remove left-over procedure.

From: Mathieu Othacehe
Subject: branch master updated: Remove left-over procedure.
Date: Sat, 30 Jan 2021 12:03:05 -0500

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 <>
AuthorDate: Sat Jan 30 18:02:35 2021 +0100

    Remove left-over procedure.
    * src/cuirass/templates.scm (workers-status): Remove unused "build-row"
 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 
                          #: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)

reply via email to

[Prev in Thread] Current Thread [Next in Thread]