summary refs log tree commit diff
path: root/build-aux
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-04-05 22:57:06 +0200
committerLudovic Courtès <ludo@gnu.org>2014-04-05 22:57:06 +0200
commit1b282ea84947f1484bbd53a3e9d66fd31f9a511c (patch)
treea142c2e38462d897467bb821a8398dffc9ec7b7e /build-aux
parent731b996255fb699cd91699f6cd22de41ebafcdcd (diff)
downloadguix-1b282ea84947f1484bbd53a3e9d66fd31f9a511c.tar.gz
hydra: Change 'qemu-jobs' to return name/thunk pairs.
* build-aux/hydra/gnu-system.scm (qemu-jobs)[->job]: Change the cdr to a
  thunk.
Diffstat (limited to 'build-aux')
-rw-r--r--build-aux/hydra/gnu-system.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/build-aux/hydra/gnu-system.scm b/build-aux/hydra/gnu-system.scm
index 6aa491a274..67794ff6e6 100644
--- a/build-aux/hydra/gnu-system.scm
+++ b/build-aux/hydra/gnu-system.scm
@@ -128,7 +128,7 @@ system.")
   (define (->job name drv)
     (let ((name (symbol-append name (string->symbol ".")
                                (string->symbol system))))
-      `(,name . ,(->alist drv))))
+      `(,name . ,(cut ->alist drv))))
 
   (if (string=? system "x86_64-linux")
       (let* ((dir  (dirname (assoc-ref (current-source-location) 'filename)))