diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-11-05 16:12:55 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-11-05 16:12:55 +0000 |
| commit | b2707b48287c99f1e409d0e06788ee2fc0354564 (patch) | |
| tree | 6e30963f6d36e8d3877989326c4d42193f0cc73d | |
| parent | 1746256ef54bdaca9c3dc2014b797c6803026876 (diff) | |
| download | data-service-b2707b48287c99f1e409d0e06788ee2fc0354564.tar data-service-b2707b48287c99f1e409d0e06788ee2fc0354564.tar.gz | |
Restore #:error-port when calling open-inferior
As the default is a void port.
| -rw-r--r-- | guix-data-service/jobs/load-new-guix-revision.scm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm index 716c546..f70abc9 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -970,7 +970,8 @@ "SSL_CERT_DIR=" (nss-certs-store-path store)))) (begin (simple-format #t "debug: using open-inferior\n") - (open-inferior (guix-store-path store)))))) + (open-inferior (guix-store-path store) + #:error-port (current-error-port)))))) (define (start-inferior-and-return-derivation-file-names) ;; /etc is only missing if open-inferior/container has been used @@ -1100,7 +1101,8 @@ '("/gnu/store")) (begin (simple-format #t "debug: using open-inferior\n") - (open-inferior store-path))))) + (open-inferior store-path + #:error-port (current-error-port)))))) (inferior-eval '(use-modules (srfi srfi-1) (srfi srfi-34) (guix grafts) @@ -1155,7 +1157,8 @@ (begin (setenv "GUIX_LOCPATH" guix-locpath) (simple-format #t "debug: using open-inferior\n") - (open-inferior store-path)))))) + (open-inferior store-path + #:error-port (current-error-port))))))) (setenv "GUIX_LOCPATH" guix-locpath) ; restore GUIX_LOCPATH (when (eq? inf #f) |