04/04: hydra: Add 'guix.SYSTEM' jobs.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 386f5415569604d3c4c83823ffc6b71b3012670c
Author: Ludovic Courtès <address@hidden>
Date:   Tue Jul 25 17:44:35 2017 +0200

    hydra: Add 'guix.SYSTEM' jobs.
    
    * build-aux/hydra/guix.scm (package->alist): Disable grafting.
    (hydra-jobs): Return 'guix.SYSTEM' jobs in addition to 'tarball'.
---
 build-aux/hydra/guix.scm | 20 ++++++++++++++++++--
 1 file changed, 18 insertions(+), 2 deletions(-)

diff --git a/build-aux/hydra/guix.scm b/build-aux/hydra/guix.scm
index 80831c4..659b8bf 100644
--- a/build-aux/hydra/guix.scm
+++ b/build-aux/hydra/guix.scm
@@ -43,6 +43,7 @@
 (use-modules (guix store)
              (guix packages)
              (guix utils)
+             (guix grafts)
              (guix derivations)
              (guix build-system gnu)
              (gnu packages package-management)
@@ -59,7 +60,9 @@
                          #:optional (package-derivation package-derivation))
   "Convert PACKAGE to an alist suitable for Hydra."
   `((derivation . ,(derivation-file-name
-                    (package-derivation store package system)))
+                    (parameterize ((%graft? #f))
+                      (package-derivation store package system
+                                          #:graft? #f))))
     (description . ,(package-synopsis package))
     (long-description . ,(package-description package))
     (license . ,(package-license package))
@@ -85,6 +88,19 @@
   (let ((file (assq-ref guix-checkout 'file-name)))
     (format (current-error-port) "using checkout ~s (~s)~%"
             guix-checkout file)
+
     `((tarball . ,(cute package->alist store
                         (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))))