diff mbox series

[bug#56781] home: Add explicit dependency on env to activation script.

Message ID 87pmhsyv2g.fsf@trop.in
State New
Headers
Series [bug#56781] home: Add explicit dependency on env to activation script. |

Commit Message

Andrew Tropin July 26, 2022, 10:10 a.m. UTC 
  * gnu/home/services.scm (compute-activation-script): Add explicit dependency
on env to activation script.
---
 gnu/home/services.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

Comments

宋文武 Aug. 2, 2022, 8:54 a.m. UTC | #1 
Andrew Tropin <andrew@trop.in> writes:

> * gnu/home/services.scm (compute-activation-script): Add explicit dependency
> on env to activation script.

Pushed, thanks!
Andrew Tropin Aug. 2, 2022, 2:35 p.m. UTC | #2 
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 mbox series

Patch

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 #\=)))