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

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

@ -96,7 +96,15 @@
(let ((opts (parse-options (cdr (program-arguments))))) (let ((opts (parse-options (cdr (program-arguments)))))
(match (assq-ref opts 'arguments) (match (assq-ref opts 'arguments)
((job) ((job)
(with-fluids ((%file-port-name-canonicalization 'none)) (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 (run-fibers
(lambda () (lambda ()
(with-exception-handler (with-exception-handler
@ -123,4 +131,4 @@
#:hz 0 #:hz 0
#:parallelism 1 #:parallelism 1
;; Drain to make sure there are no bugs with the use of fibers ;; Drain to make sure there are no bugs with the use of fibers
#:drain? #t))))) #:drain? #t))))