branch master updated: hydra: services: Add specification priorities.

[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 cc49424  hydra: services: Add specification priorities.
cc49424 is described below

commit cc49424de88a8c32743262a02bba7fe46de31b61
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Fri Jan 22 11:52:18 2021 +0100

    hydra: services: Add specification priorities.
    
    * hydra/modules/sysadmin/services.scm (cuirass-specs): Define priorities.
    
    Signed-off-by: Mathieu Othacehe <othacehe@gnu.org>
---
 hydra/modules/sysadmin/services.scm | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/hydra/modules/sysadmin/services.scm 
b/hydra/modules/sysadmin/services.scm
index d3d69be..39570ac 100644
--- a/hydra/modules/sysadmin/services.scm
+++ b/hydra/modules/sysadmin/services.scm
@@ -246,7 +246,8 @@
                                      ((#:job . "binary-tarball*")
                                       (#:type . "archive")
                                       (#:output . "out")
-                                      (#:path . "")))))
+                                      (#:path . ""))))
+                 (#:priority . 2))
                `((#:name . "guix-modular-master")
                  ;; Keep the load path empty: it uses the available Guix 
modules
                  ;; to build a trampoline.
@@ -257,7 +258,8 @@
                  (#:proc . cuirass-jobs)
                  (#:proc-args (systems #$@systems))
                  (#:inputs . (#$(guix-input "guix-modular" "master")))
-                 (#:build-outputs . ())))
+                 (#:build-outputs . ())
+                 (#:priority . 1)))
             #~())
      #$@(if (member "staging" branches)
             #~(`((#:name . "staging-staging")
@@ -268,7 +270,8 @@
                  (#:proc . cuirass-jobs)
                  (#:proc-args (systems #$@systems))
                  (#:inputs . (#$(guix-input "staging" "staging")))
-                 (#:build-outputs . ())))
+                 (#:build-outputs . ())
+                 (#:priority . 3)))
             #~())
      #$@(if (member "core-updates" branches)
             #~(`((#:name . "core-updates-core-updates")
@@ -279,7 +282,8 @@
                  (#:proc . cuirass-jobs)
                  (#:proc-args (subset . core) (systems #$@systems))
                  (#:inputs . (#$(guix-input "core-updates" "core-updates")))
-                 (#:build-outputs . ())))
+                 (#:build-outputs . ())
+                 (#:priority . 4)))
             #~())))