offload: Fix 'choose-build-machine' for several machines.

* guix/scripts/offload.scm (choose-build-machine)[undecorate]: Turn into a two-argument procedure.
2026-08-04 21:01:33 +02:00 · 2014-03-13 22:57:21 +01:00
parent 3c0e6e6080
commit 1a8ea0a188
1 changed files with 8 additions and 4 deletions
@@ -466,10 +466,14 @@ allowed on MACHINE."
                  machines))

    (define (undecorate pred)
-      (match-lambda
-       ((machine slot)
-        (and (pred machine)
-             (list machine slot)))))
+      (lambda (a b)
+        (match a
+          ((machine1 slot1)
+           (match b
+             ((machine2 slot2)
+              (if (pred machine1 machine2)
+                  (list machine1 slot1)
+                  (list machine2 slot2))))))))

    (let ((machines+slots (sort machines+slots
                                (undecorate machine-less-loaded-or-faster?))))