aboutsummaryrefslogtreecommitdiff
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
parent731b996255fb699cd91699f6cd22de41ebafcdcd (diff)
downloadguix-1b282ea84947f1484bbd53a3e9d66fd31f9a511c.tar
guix-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.
-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)))