hydra: Extract the actual file name from the Guix checkout.

* build-aux/hydra/guix.scm (hydra-jobs): Extract the `file-name' part of
  CHECKOUT.
This commit is contained in:
Ludovic Courtès 2013-08-24 18:24:17 +02:00
parent 59e6ae6cf1
commit f29f066439
1 changed files with 5 additions and 2 deletions

View File

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