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

Block asyncs when starting inferiors

Browse source 
Because this code deals with global state, like environment variables.
This commit is contained in:
Christopher Baines 2024-06-24 23:02:41 +01:00
parent 31bd2156f7
commit e37eb34db6
1 changed files with 82 additions and 80 deletions
Download patch file Download diff file Expand all files Collapse all files

4
guix-data-service/jobs/load-new-guix-revision.scm
View file

@ -1330,6 +1330,8 @@
(define (start-inferior-for-data-extration store store-path guix-locpath (define (start-inferior-for-data-extration store store-path guix-locpath
extra-inferior-environment-variables) extra-inferior-environment-variables)
(call-with-blocked-asyncs
(lambda ()
(let* ((original-guix-locpath (getenv "GUIX_LOCPATH")) (let* ((original-guix-locpath (getenv "GUIX_LOCPATH"))
(original-extra-env-vars-values (original-extra-env-vars-values
(map (match-lambda (map (match-lambda
@ -1418,7 +1420,7 @@
((@@ (guix inferior) ensure-store-bridge!) inf) ((@@ (guix inferior) ensure-store-bridge!) inf)
(non-blocking-port ((@@ (guix inferior) inferior-bridge-socket) inf)) (non-blocking-port ((@@ (guix inferior) inferior-bridge-socket) inf))
inf)) inf))))
(define* (extract-information-from conn long-running-store-connection (define* (extract-information-from conn long-running-store-connection
guix-revision-id commit guix-revision-id commit