hydra: Return a symbol/thunk pair.

* build-aux/hydra/guix.scm (hydra-jobs): Return a symbol/thunk pair.
This commit is contained in:
Ludovic Courtès 2013-08-25 16:48:10 +02:00
parent 9eed6f9b88
commit 6ad507ae54
1 changed files with 4 additions and 4 deletions

View File

@ -94,8 +94,8 @@ containing a Git checkout of Guix."
(define checkout
(assq-ref arguments 'guix))
(format #t "using checkout ~s~%" checkout)
(format (current-error-port) "using checkout ~s~%" checkout)
(let ((directory (assq-ref checkout 'file-name)))
`((tarball . ,(package->alist store
(tarball-package directory)
(%current-system))))))
`((tarball . ,(cute package->alist store
(tarball-package directory)
(%current-system))))))