hydra: Pass the directory name of the Nix checkout.

* build-aux/hydra/guix.scm (hydra-jobs): Extract the 'file-name' item
  from NIX-CHECKOUT, and pass that to 'tarball-package'.
master
Ludovic Courtès 2013-09-18 23:07:45 +02:00
parent 1210c32ecc
commit 72d9148fbf
1 changed files with 5 additions and 4 deletions

View File

@ -98,15 +98,16 @@ containing a Git checkout of Guix."
(_
(list (%current-system)))))
(define checkout
(define guix-checkout
(assq-ref arguments 'guix))
(define nix-checkout
(assq-ref arguments 'nix))
(format (current-error-port) "using checkout ~s (Nix: ~s)~%"
checkout nix-checkout)
(let ((directory (assq-ref checkout 'file-name)))
guix-checkout nix-checkout)
(let ((guix (assq-ref guix-checkout 'file-name))
(nix (assq-ref nix-checkout 'file-name)))
`((tarball . ,(cute package->alist store
(tarball-package directory nix-checkout)
(tarball-package guix nix)
(%current-system))))))