branch master updated: hydra: services: Add build output images.

[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 2b40161  hydra: services: Add build output images.
2b40161 is described below

commit 2b40161533a41adcd90836d944e8c269fdbe162e
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Fri Jan 22 11:58:21 2021 +0100

    hydra: services: Add build output images.
    
    * hydra/modules/sysadmin/services.scm (cuirass-specs): Add images outputs.
    
    Signed-off-by: Mathieu Othacehe <othacehe@gnu.org>
---
 hydra/modules/sysadmin/services.scm | 17 +++++++++++++----
 1 file changed, 13 insertions(+), 4 deletions(-)

diff --git a/hydra/modules/sysadmin/services.scm 
b/hydra/modules/sysadmin/services.scm
index 39570ac..ab4a8c5 100644
--- a/hydra/modules/sysadmin/services.scm
+++ b/hydra/modules/sysadmin/services.scm
@@ -222,6 +222,14 @@
     (#:branch . ,branch)
     (#:no-compile? . #t)))
 
+(define (images-ouputs jobs)
+  (map (lambda (job)
+         `((#:job . ,job)
+           (#:type . "image")
+           (#:output . "out")
+           (#:path . "")))
+       jobs))
+
 (define (cuirass-specs branches systems)
   "Return the Cuirass specifications to build Guix for the given SYSTEMS."
   #~(list
@@ -239,10 +247,11 @@
                                       (#:type . "ISO-9660")
                                       (#:output . "out")
                                       (#:path . ""))
-                                     ((#:job . "hurd-barebones.qcow2")
-                                      (#:type . "image")
-                                      (#:output . "out")
-                                      (#:path . ""))
+                                     #$@(images-ouputs
+                                         (list
+                                          "hurd-barebones.qcow2"
+                                          "pine64-barebones-raw-image"
+                                          "pinebook-pro-barebones-raw-image"))
                                      ((#:job . "binary-tarball*")
                                       (#:type . "archive")
                                       (#:output . "out")