Message ID | 87pmhsyv2g.fsf@trop.in |
---|---|
State | Accepted |
Headers | show |
Series | [bug#56781] home: Add explicit dependency on env to activation script. | expand |
Context | Check | Description |
---|---|---|
cbaines/comparison | success | View comparision |
cbaines/git-branch | success | View Git branch |
cbaines/applying patch | success | View Laminar job |
cbaines/issue | success | View issue |
Andrew Tropin <andrew@trop.in> writes: > * gnu/home/services.scm (compute-activation-script): Add explicit dependency > on env to activation script. Pushed, thanks!
On 2022-08-02 16:54, 宋文武 wrote: > Andrew Tropin <andrew@trop.in> writes: > >> * gnu/home/services.scm (compute-activation-script): Add explicit dependency >> on env to activation script. > > Pushed, thanks! Thank you very much!
diff --git a/gnu/home/services.scm b/gnu/home/services.scm index d500ba8c68..61a7419f4e 100644 --- a/gnu/home/services.scm +++ b/gnu/home/services.scm @@ -20,6 +20,7 @@ (define-module (gnu home services) #:use-module (gnu services) #:use-module ((gnu packages package-management) #:select (guix)) + #:use-module ((gnu packages base) #:select (coreutils)) #:use-module (guix channels) #:use-module (guix monads) #:use-module (guix store) @@ -427,8 +428,9 @@ (define (compute-activation-script init-gexp gexps) #f)))) (if (file-exists? (he-init-file new-home)) (let* ((port ((@ (ice-9 popen) open-input-pipe) - (format #f "source ~a && env -0" - (he-init-file new-home)))) + (format #f "source ~a && ~a -0" + (he-init-file new-home) + #$(file-append coreutils "/bin/env")))) (result ((@ (ice-9 rdelim) read-delimited) "" port)) (vars (map (lambda (x) (let ((si (string-index x #\=)))