From 0f07826a200eb767842b93b99d9a99ed713345c1 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Fri, 11 Mar 2022 11:22:08 +0000 Subject: [PATCH] Extract out the code for starting an inferior --- guix-data-service/jobs/load-new-guix-revision.scm | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm index a1b0679..9814c64 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -1196,8 +1196,7 @@ WHERE job_id = $1") output))) -(define (extract-information-from conn store guix-revision-id commit store-path) - (simple-format #t "debug: extract-information-from: ~A\n" store-path) +(define (start-inferior-for-data-extration store store-path) (let* ((guix-locpath (getenv "GUIX_LOCPATH")) (inf (let ((guix-locpath ;; 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) + 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 #t (lambda ()