me
/
guix
Archived
1
0
Fork 0
Code

ci: Add arguments->systems procedure. 

* gnu/ci.scm (arguments->systems): New procedure.
(cuirass-jobs): Use it.
master
Mathieu Othacehe 2021-04-28 11:52:31 +02:00
parent 996b5edf51
commit 3034f3d05b
No known key found for this signature in database
GPG Key ID: 8354763531769CA6
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
gnu/ci.scm
View File

@ -72,6 +72,8 @@
%core-packages %core-packages
%cross-targets %cross-targets
channel-source->package channel-source->package
arguments->systems
cuirass-jobs)) cuirass-jobs))
;;; Commentary: ;;; Commentary:
@ -443,6 +445,13 @@ valid."
load-manifest) load-manifest)
manifests)))) 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. ;;; Cuirass entry point.
@ -454,10 +463,7 @@ valid."
(assoc-ref arguments 'subset)) (assoc-ref arguments 'subset))
(define systems (define systems
(match (assoc-ref arguments 'systems) (arguments->systems arguments))
(#f %cuirass-supported-systems)
((lst ...) lst)
((? string? str) (call-with-input-string str read))))
(define channels (define channels
(let ((channels (assq-ref arguments 'channels))) (let ((channels (assq-ref arguments 'channels)))