nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

hydra: Add 'guix.SYSTEM' jobs. 

* build-aux/hydra/guix.scm (package->alist): Disable grafting.
(hydra-jobs): Return 'guix.SYSTEM' jobs in addition to 'tarball'.
This commit is contained in:
Ludovic Courtès 2017-07-25 17:44:35 +02:00
parent 06ce8e5680
commit 386f541556
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 18 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
build-aux/hydra/guix.scm
View File

@ -43,6 +43,7 @@
(use-modules (guix store) (use-modules (guix store)
(guix packages) (guix packages)
(guix utils) (guix utils)
(guix grafts)
(guix derivations) (guix derivations)
(guix build-system gnu) (guix build-system gnu)
(gnu packages package-management) (gnu packages package-management)
@ -59,7 +60,9 @@
#:optional (package-derivation package-derivation)) #:optional (package-derivation package-derivation))
"Convert PACKAGE to an alist suitable for Hydra." "Convert PACKAGE to an alist suitable for Hydra."
`((derivation . ,(derivation-file-name `((derivation . ,(derivation-file-name
(package-derivation store package system))) (parameterize ((%graft? #f))
(package-derivation store package system
#:graft? #f))))
(description . ,(package-synopsis package)) (description . ,(package-synopsis package))
(long-description . ,(package-description package)) (long-description . ,(package-description package))
(license . ,(package-license package)) (license . ,(package-license package))
@ -85,6 +88,19 @@
(let ((file (assq-ref guix-checkout 'file-name))) (let ((file (assq-ref guix-checkout 'file-name)))
(format (current-error-port) "using checkout ~s (~s)~%" (format (current-error-port) "using checkout ~s (~s)~%"
guix-checkout file) guix-checkout file)
`((tarball . ,(cute package->alist store `((tarball . ,(cute package->alist store
(dist-package guix file) (dist-package guix file)
(%current-system)))))) (%current-system)))
,@(map (lambda (system)
(let ((name (string->symbol
(string-append "guix." system))))
`(,name
. ,(cute package->alist store
(package
(inherit guix)
(version "latest")
(source file))
system))))
%hydra-supported-systems))))