02/05: hydra: bayfront: Move binary tarball derivation.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository maintenance.

commit 4311f6147991a47486c1427ce5147f45871d19b0
Author: Ludovic Courtès <address@hidden>
Date:   Wed Mar 29 23:46:26 2017 +0200

    hydra: bayfront: Move binary tarball derivation.
    
    * hydra/cuirass-jobs.scm (tarball-job): Add 'drv' variable and use it.
---
 hydra/cuirass-jobs.scm | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/hydra/cuirass-jobs.scm b/hydra/cuirass-jobs.scm
index bbd0f17..f43f63e 100644
--- a/hydra/cuirass-jobs.scm
+++ b/hydra/cuirass-jobs.scm
@@ -116,20 +116,20 @@ for TARGET on SYSTEM."
 
 (define (tarball-job store system)
   "Return Hydra jobs to build the self-contained Guix binary tarball."
+  (define drv
+    (mbegin %store-monad
+      (set-guile-for-build (default-guile))
+      (>>= (profile-derivation (packages->manifest (list guix)))
+           (lambda (profile)
+             (self-contained-tarball "guix-binary" profile
+                                     #:compressor
+                                     (lookup-compressor "lzip"))))))
+
   (λ ()
     `((#:job-name . (string-append "binary-tarball." system))
       (#:derivation . ,(derivation-file-name
                         (parameterize ((%graft? #f))
-                          (run-with-store store
-                            (mbegin %store-monad
-                              (set-guile-for-build (default-guile))
-                              (>>= (profile-derivation
-                                    (packages->manifest (list guix)))
-                                   (lambda (profile)
-                                     (self-contained-tarball
-                                      "guix-binary" profile
-                                      #:compressor
-                                      (lookup-compressor "lzip")))))
+                          (run-with-store store drv
                             #:system system))))
       (#:description . "Stand-alone binary Guix tarball")
       (#:long-description . "This is a tarball containing binaries of Guix