branch master updated: Sort machines consistently.

[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 7a7c26c  Sort machines consistently.
7a7c26c is described below

commit 7a7c26c628f10e6da292b155fb5b3ae0cbf1712a
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Sat Jan 30 15:54:29 2021 +0100

    Sort machines consistently.
    
    * src/cuirass/templates.scm (workers-status): Sort machines.
---
 src/cuirass/templates.scm | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/src/cuirass/templates.scm b/src/cuirass/templates.scm
index b59c62b..c474bb7 100644
--- a/src/cuirass/templates.scm
+++ b/src/cuirass/templates.scm
@@ -31,7 +31,8 @@
   #:use-module (guix derivations)
   #:use-module (guix progress)
   #:use-module (guix store)
-  #:use-module ((guix utils) #:select (string-replace-substring))
+  #:use-module ((guix utils) #:select (string-replace-substring
+                                       version>?))
   #:use-module ((cuirass database) #:select (build-status
                                              evaluation-status))
   #:use-module (cuirass remote)
@@ -1082,8 +1083,10 @@ text-dark d-flex position-absolute w-100"))
                                         "idle"))))))
                   workers builds))))
 
-  (let ((machines (delete-duplicates
-                   (map worker-machine workers))))
+  (let ((machines (reverse
+                   (sort (delete-duplicates
+                          (map worker-machine workers))
+                         version>?))))
     `((p (@ (class "lead")) "Workers status")
       (div (@ (class "container"))
            (div (@ (class "row"))