Browse Source

hydra: Return a symbol/thunk pair.

* build-aux/hydra/guix.scm (hydra-jobs): Return a symbol/thunk pair.
gn-latest-20200428
Ludovic Courtès 8 years ago
parent
commit
6ad507ae54
  1. 8
      build-aux/hydra/guix.scm

8
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))))))
Loading…
Cancel
Save