cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Tweak the job script

Browse source 
Don't use with-fluids (I forget why), and enable core dumps.
This commit is contained in:
Christopher Baines 2025-07-09 12:50:24 +01:00
parent 90ecbdea70
commit 2073e446b7
1 changed files with 36 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

64
scripts/guix-data-service-process-job.in
View file

@ -96,31 +96,39 @@
(let ((opts (parse-options (cdr (program-arguments)))))
(match (assq-ref opts 'arguments)
((job)
(with-fluids ((%file-port-name-canonicalization 'none))
(run-fibers
(lambda ()
(with-exception-handler
(lambda (exn)
;; Exit if exceptions get this far, as not all fibers are
;; guaranteed to finish
(primitive-exit 1))
(lambda ()
(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)
#:inferior-memory-limit (assq-ref opts 'inferior-memory-limit)
#:parallelism (assq-ref opts 'parallelism)))
#:unwind? #t))
#:hz 0
#:parallelism 1
;; Drain to make sure there are no bugs with the use of fibers
#:drain? #t)))))
(with-exception-handler
(lambda (exn)
(simple-format #t "failed enabling core dumps: ~A\n" exn))
(lambda ()
(setrlimit 'core #f #f))
#:unwind? #t)
(fluid-set! %file-port-name-canonicalization 'none)
(run-fibers
(lambda ()
(with-exception-handler
(lambda (exn)
;; Exit if exceptions get this far, as not all fibers are
;; guaranteed to finish
(primitive-exit 1))
(lambda ()
(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)
#:inferior-memory-limit (assq-ref opts 'inferior-memory-limit)
#:parallelism (assq-ref opts 'parallelism)))
#:unwind? #t))
#:hz 0
#:parallelism 1
;; Drain to make sure there are no bugs with the use of fibers
#:drain? #t))))