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

Sort machines consistently.

Browse source 
* src/cuirass/templates.scm (workers-status): Sort machines.
This commit is contained in:
Mathieu Othacehe 2021-01-30 15:54:29 +01:00
parent 1e8d075d70
commit 7a7c26c628
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/cuirass/templates.scm
View file

@ -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"))