diff options
| author | Christopher Baines <mail@cbaines.net> | 2022-03-11 11:22:08 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2022-03-11 11:22:08 +0000 |
| commit | 0f07826a200eb767842b93b99d9a99ed713345c1 (patch) | |
| tree | cd87964469cbe85fa45d3fbb9f28df14b5ea9af3 | |
| parent | 8379427cbbb3f82a349562b626f494daf7050c96 (diff) | |
| download | data-service-0f07826a200eb767842b93b99d9a99ed713345c1.tar data-service-0f07826a200eb767842b93b99d9a99ed713345c1.tar.gz | |
Extract out the code for starting an inferior
| -rw-r--r-- | guix-data-service/jobs/load-new-guix-revision.scm | 9 |
1 files 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 () |