aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--gnu/ci.scm14
1 files changed, 10 insertions, 4 deletions
diff --git a/gnu/ci.scm b/gnu/ci.scm
index 9e4f0a8c82..58423b6911 100644
--- a/gnu/ci.scm
+++ b/gnu/ci.scm
@@ -72,6 +72,8 @@
%core-packages
%cross-targets
channel-source->package
+
+ arguments->systems
cuirass-jobs))
;;; Commentary:
@@ -443,6 +445,13 @@ valid."
load-manifest)
manifests))))
+(define (arguments->systems arguments)
+ "Return the systems list from ARGUMENTS."
+ (match (assoc-ref arguments 'systems)
+ (#f %cuirass-supported-systems)
+ ((lst ...) lst)
+ ((? string? str) (call-with-input-string str read))))
+
;;;
;;; Cuirass entry point.
@@ -454,10 +463,7 @@ valid."
(assoc-ref arguments 'subset))
(define systems
- (match (assoc-ref arguments 'systems)
- (#f %cuirass-supported-systems)
- ((lst ...) lst)
- ((? string? str) (call-with-input-string str read))))
+ (arguments->systems arguments))
(define channels
(let ((channels (assq-ref arguments 'channels)))