diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-08-25 16:48:10 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-08-25 16:48:10 +0200 |
| commit | 6ad507ae54c912145a247308250be39ef80b9baa (patch) | |
| tree | 057571a5e1873924322f3073ae9b4a317fd44ca1 /build-aux/hydra/guix.scm | |
| parent | 9eed6f9b88ed589d7531e2d5cecc73fd095db523 (diff) | |
| download | patches-6ad507ae54c912145a247308250be39ef80b9baa.tar patches-6ad507ae54c912145a247308250be39ef80b9baa.tar.gz | |
hydra: Return a symbol/thunk pair.
* build-aux/hydra/guix.scm (hydra-jobs): Return a symbol/thunk pair.
Diffstat (limited to 'build-aux/hydra/guix.scm')
| -rw-r--r-- | build-aux/hydra/guix.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/build-aux/hydra/guix.scm b/build-aux/hydra/guix.scm index 4330e31632..a8d740e03c 100644 --- a/build-aux/hydra/guix.scm +++ b/build-aux/hydra/guix.scm @@ -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)))))) |