amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

home: Add explicit dependency on env to activation script.

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

Signed-off-by: 宋文武 <iyzsong@member.fsf.org>
This commit is contained in:
Andrew Tropin 2022-07-26 13:10:08 +03:00 • committed by 宋文武
parent ead27209b5
commit 9355d46329
No known key found for this signature in database
GPG key ID: D415BF253B515976
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
gnu/home/services.scm
View file

@ -20,6 +20,7 @@
(define-module (gnu home services) (define-module (gnu home services)
#:use-module (gnu services) #:use-module (gnu services)
#:use-module ((gnu packages package-management) #:select (guix)) #:use-module ((gnu packages package-management) #:select (guix))
#:use-module ((gnu packages base) #:select (coreutils))
#:use-module (guix channels) #:use-module (guix channels)
#:use-module (guix monads) #:use-module (guix monads)
#:use-module (guix store) #:use-module (guix store)
@ -426,8 +427,9 @@ extended with one gexp.")))
#f)))) #f))))
(if (file-exists? (he-init-file new-home)) (if (file-exists? (he-init-file new-home))
(let* ((port ((@ (ice-9 popen) open-input-pipe) (let* ((port ((@ (ice-9 popen) open-input-pipe)
(format #f "source ~a && env -0" (format #f "source ~a && ~a -0"
(he-init-file new-home)))) (he-init-file new-home)
#$(file-append coreutils "/bin/env"))))
(result ((@ (ice-9 rdelim) read-delimited) "" port)) (result ((@ (ice-9 rdelim) read-delimited) "" port))
(vars (map (lambda (x) (vars (map (lambda (x)
(let ((si (string-index x #\=))) (let ((si (string-index x #\=)))