diff options
author | Andrew Tropin <andrew@trop.in> | 2022-07-26 13:10:08 +0300 |
---|---|---|
committer | 宋文武 <iyzsong@member.fsf.org> | 2022-08-02 16:53:29 +0800 |
commit | 9355d463290bcc29b0885e18c9b19258934ea0a2 (patch) | |
tree | a4851278631b96db24a44926f03eae4e4ef13dfd /gnu | |
parent | ead27209b5e6e474bea93b010a96644dbae487b4 (diff) |
home: Add explicit dependency on env to activation script.
* gnu/home/services.scm (compute-activation-script): Add explicit dependency
on env to activation script.
Signed-off-by: 宋文武 <iyzsong@member.fsf.org>
Diffstat (limited to 'gnu')
-rw-r--r-- | gnu/home/services.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gnu/home/services.scm b/gnu/home/services.scm index b05ec53e2a..d71aa16a7d 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) @@ -426,8 +427,9 @@ extended with one gexp."))) #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 #\=))) |