diff options
Diffstat (limited to 'scripts/guix-data-service-process-job.in')
| -rw-r--r-- | scripts/guix-data-service-process-job.in | 30 |
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))))) |