diff options
| author | Mathieu Othacehe <othacehe@gnu.org> | 2021-04-28 11:52:31 +0200 |
|---|---|---|
| committer | Mathieu Othacehe <othacehe@gnu.org> | 2021-04-28 11:53:32 +0200 |
| commit | 3034f3d05bdd4e20fe07c329e41f831950d96f01 (patch) | |
| tree | c53ba178fbacecd144b6804163af86aa0df2eaa2 /gnu/ci.scm | |
| parent | 996b5edf51c132764ca8122d401c5bb2b8d2e3c5 (diff) | |
| download | guix-3034f3d05bdd4e20fe07c329e41f831950d96f01.tar guix-3034f3d05bdd4e20fe07c329e41f831950d96f01.tar.gz | |
ci: Add arguments->systems procedure.
* gnu/ci.scm (arguments->systems): New procedure.
(cuirass-jobs): Use it.
Diffstat (limited to 'gnu/ci.scm')
| -rw-r--r-- | gnu/ci.scm | 14 |
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))) |