~ruther/guix-local: hydra: Pass the directory name of the Nix checkout.

72d9148fbf6e097cd8838b51c49f107c5176287a — Ludovic Courtès 12 years ago 1210c32

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'.

patch browse .tar.gz

1 files changed, 5 insertions(+), 4 deletions(-)

M build-aux/hydra/guix.scm

M build-aux/hydra/guix.scm => build-aux/hydra/guix.scm +5 -4

@@ 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))))))