mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2025-01-23 19:19:20 -05:00
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 @@ (define (compute-activation-script init-gexp gexps)
|
|||
(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))
|
||||
|
|
Loading…
Reference in a new issue