[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/05: hydra: bayfront: Move binary tarball derivation.
From: |
Ludovic Courtès |
Subject: |
02/05: hydra: bayfront: Move binary tarball derivation. |
Date: |
Wed, 29 Mar 2017 17:57:07 -0400 (EDT) |
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