branch master updated: hydra: services: Add build output support to Cuirass.

[Mathieu Othacehe]

This is an automated email from the git hooks/post-receive script.

mothacehe pushed a commit to branch master
in repository maintenance.

The following commit(s) were added to refs/heads/master by this push:
     new c8e4117  hydra: services: Add build output support to Cuirass.
c8e4117 is described below

commit c8e4117b1863454f5df2cfa5b7b28a565911d9d6
Author: Mathieu Othacehe <m.othacehe@gmail.com>
AuthorDate: Wed Jun 10 17:56:24 2020 +0200

    hydra: services: Add build output support to Cuirass.
    
    Cuirass recently gained build output support. This means that it is possible
    to indicate from the specifications which files from a job output should be
    made available for download via the Web UI.
    
    Use it to make ISO9660 images available for download.
    
    * hydra/modules/sysadmin/services.scm (cuirass-specs): Add build-outputs
    support.
---
 hydra/modules/sysadmin/services.scm | 16 ++++++++++++----
 1 file changed, 12 insertions(+), 4 deletions(-)

diff --git a/hydra/modules/sysadmin/services.scm 
b/hydra/modules/sysadmin/services.scm
index 8c36a10..bb11ac1 100644
--- a/hydra/modules/sysadmin/services.scm
+++ b/hydra/modules/sysadmin/services.scm
@@ -218,7 +218,12 @@
                  (#:proc-file . "build-aux/cuirass/gnu-system.scm")
                  (#:proc . cuirass-jobs)
                  (#:proc-args (subset . "all") (systems #$@systems))
-                 (#:inputs . (#$(guix-input "guix" "master"))))
+                 (#:inputs . (#$(guix-input "guix" "master")))
+                 ;; Save the build output of the ISO9660-IMAGE job.
+                 (#:build-outputs . (((#:job . "iso9660-image*")
+                                      (#:type . "iso")
+                                      (#:output . "out")
+                                      (#:path . "")))))
                `((#:name . "guix-modular-master")
                  ;; Keep the load path empty: it uses the available Guix 
modules
                  ;; to build a trampoline.
@@ -228,7 +233,8 @@
                  (#:proc-file . "build-aux/cuirass/guix-modular.scm")
                  (#:proc . cuirass-jobs)
                  (#:proc-args (systems #$@systems))
-                 (#:inputs . (#$(guix-input "guix-modular" "master")))))
+                 (#:inputs . (#$(guix-input "guix-modular" "master")))
+                 (#:build-outputs . ())))
             #~())
      #$@(if (member "staging" branches)
             #~(`((#:name . "staging-staging")
@@ -238,7 +244,8 @@
                  (#:proc-file . "build-aux/cuirass/gnu-system.scm")
                  (#:proc . cuirass-jobs)
                  (#:proc-args (systems #$@systems))
-                 (#:inputs . (#$(guix-input "staging" "staging")))))
+                 (#:inputs . (#$(guix-input "staging" "staging")))
+                 (#:build-outputs . ())))
             #~())
      #$@(if (member "core-updates" branches)
             #~(`((#:name . "core-updates-core-updates")
@@ -248,7 +255,8 @@
                  (#:proc-file . "build-aux/cuirass/gnu-system.scm")
                  (#:proc . cuirass-jobs)
                  (#:proc-args (subset . core) (systems #$@systems))
-                 (#:inputs . (#$(guix-input "core-updates" "core-updates")))))
+                 (#:inputs . (#$(guix-input "core-updates" "core-updates")))
+                 (#:build-outputs . ())))
             #~())))