aboutsummaryrefslogtreecommitdiff
path: root/scripts/guix-data-service-process-job.in
diff options
context:
space:
mode:
Diffstat (limited to 'scripts/guix-data-service-process-job.in')
-rw-r--r--scripts/guix-data-service-process-job.in30
1 files changed, 28 insertions, 2 deletions
diff --git a/scripts/guix-data-service-process-job.in b/scripts/guix-data-service-process-job.in
index df6142e..5643246 100644
--- a/scripts/guix-data-service-process-job.in
+++ b/scripts/guix-data-service-process-job.in
@@ -51,10 +51,27 @@
(alist-cons 'parallelism
(string->number arg)
(alist-delete 'parallelism
- result))))))
+ result))))
+ (option '("inferior-set-environment-variable") #t #f
+ (lambda (opt name arg result)
+ (alist-cons 'inferior-environment-variable
+ (string-split arg #\=)
+ result)))
+ (option '("ignore-systems") #t #f
+ (lambda (opt name arg result)
+ (alist-cons 'ignore-systems
+ (string-split arg #\,)
+ result)))
+ (option '("ignore-targets") #t #f
+ (lambda (opt name arg result)
+ (alist-cons 'ignore-targets
+ (string-split arg #\,)
+ result)))))
(define %default-options
- '((parallelism . 1)))
+ '((parallelism . 1)
+ (ignore-systems . ())
+ (ignore-targets . ())))
(define (parse-options args)
(args-fold
@@ -79,6 +96,15 @@
(process-load-new-guix-revision-job
job
#:skip-system-tests? (assq-ref opts 'skip-system-tests)
+ #:extra-inferior-environment-variables
+ (filter-map
+ (match-lambda
+ (('inferior-environment-variable key val)
+ (cons key val))
+ (_ #f))
+ opts)
+ #:ignore-systems (assq-ref opts 'ignore-systems)
+ #:ignore-targets (assq-ref opts 'ignore-targets)
#:parallelism (assq-ref opts 'parallelism)))
#:hz 0
#:parallelism 1)))))