home: Use absolute path for home in activation script.
* gnu/home/services.scm (compute-activation-script): Use absolute path for home in activation script.
This commit is contained in:
parent
65cabb010e
commit
ffc391500a
1 changed files with 3 additions and 2 deletions
|
@ -420,8 +420,9 @@ extended with one gexp.")))
|
|||
(he-path (string-append (getenv "HOME") "/.guix-home"))
|
||||
(new-home-env (getenv "GUIX_NEW_HOME"))
|
||||
(new-home (or new-home-env
|
||||
;; Path of the activation file if called interactively
|
||||
(dirname (car (command-line)))))
|
||||
;; Absolute path of the directory of the activation
|
||||
;; file if called interactively.
|
||||
(canonicalize-path (dirname (car (command-line))))))
|
||||
(old-home-env (getenv "GUIX_OLD_HOME"))
|
||||
(old-home (or old-home-env
|
||||
(if (file-exists? (he-init-file he-path))
|
||||
|
|
Reference in a new issue