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

Extract out the code for starting an inferior

Browse source
This commit is contained in:
Christopher Baines 2022-03-11 11:22:08 +00:00
parent 8379427cbb
commit 0f07826a20
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1196,8 +1196,7 @@ WHERE job_id = $1")
output))) output)))
(define (extract-information-from conn store guix-revision-id commit store-path) (define (start-inferior-for-data-extration store store-path)
(simple-format #t "debug: extract-information-from: ~A\n" store-path)
(let* ((guix-locpath (getenv "GUIX_LOCPATH")) (let* ((guix-locpath (getenv "GUIX_LOCPATH"))
(inf (let ((guix-locpath (inf (let ((guix-locpath
;; Augment the GUIX_LOCPATH to include glibc-locales from ;; Augment the GUIX_LOCPATH to include glibc-locales from
@ -1270,6 +1269,12 @@ WHERE job_id = $1")
(inferior-eval '(when (defined? '%graft?) (%graft? #f)) inf) (inferior-eval '(when (defined? '%graft?) (%graft? #f)) inf)
inf))
(define (extract-information-from conn store guix-revision-id commit store-path)
(simple-format #t "debug: extract-information-from: ~A\n" store-path)
(let ((inf (start-inferior-for-data-extration store store-path)))
(catch (catch
#t #t
(lambda () (lambda ()