ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

hydra: Add jobs for the self-contained tarball.

Browse source 
* build-aux/hydra/gnu-system.scm (tarball-jobs): New procedure.
  (hydra-jobs): Use it.
This commit is contained in:
Ludovic Courtès 2015-04-14 23:26:41 +02:00
parent 890024c51c
commit b607593533
1 changed files with 26 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
build-aux/hydra/gnu-system.scm
View file

@ -54,6 +54,7 @@
(gnu packages multiprecision) (gnu packages multiprecision)
(gnu packages make-bootstrap) (gnu packages make-bootstrap)
(gnu packages commencement) (gnu packages commencement)
(gnu packages package-management)
(gnu system) (gnu system)
(gnu system vm) (gnu system vm)
(gnu system install) (gnu system install)
@ -161,6 +162,30 @@ (define MiB
(* 800 MiB)))))) (* 800 MiB))))))
'())) '()))
(define (tarball-jobs store system)
"Return Hydra jobs to build the self-contained Guix binary tarball."
(define (->alist drv)
`((derivation . ,(derivation-file-name drv))
(description . "Stand-alone binary Guix tarball")
(long-description . "This is a tarball containing binaries of Guix and
all its dependencies, and ready to be installed on non-GuixSD distributions.")
(license . ,gpl3+)
(home-page . ,%guix-home-page-url)
(maintainers . ("bug-guix@gnu.org"))))
(define (->job name drv)
(let ((name (symbol-append name (string->symbol ".")
(string->symbol system))))
`(,name . ,(cut ->alist drv))))
;; XXX: Add a job for the stable Guix?
(list (->job 'binary-tarball
(run-with-store store
(mbegin %store-monad
(set-guile-for-build (default-guile))
(self-contained-tarball))
#:system system))))
(define job-name (define job-name
;; Return the name of a package's job. ;; Return the name of a package's job.
(compose string->symbol package-full-name)) (compose string->symbol package-full-name))
@ -234,6 +259,7 @@ (define (either proc1 proc2)
(cons job result) (cons job result)
result))) result)))
(append (qemu-jobs store system) (append (qemu-jobs store system)
(tarball-jobs store system)
(cross-jobs system)))) (cross-jobs system))))
((core) ((core)
;; Build core packages only. ;; Build core packages only.