diff options
| author | Andrew Tropin <andrew@trop.in> | 2022-01-14 09:16:32 +0300 |
|---|---|---|
| committer | Andrew Tropin <andrew@trop.in> | 2022-08-19 18:55:40 +0300 |
| commit | ffc391500ac7eae1ef100d8d36f6c01f4f606170 (patch) | |
| tree | 9fe55786fc75f37c3c5e5180c10a9ea5b3623890 | |
| parent | 65cabb010e3388d10f9b25ec560bfcfab5f810d4 (diff) | |
| download | guix-ffc391500ac7eae1ef100d8d36f6c01f4f606170.tar.gz | |
home: Use absolute path for home in activation script.
* gnu/home/services.scm (compute-activation-script): Use absolute path for home in activation script.
| -rw-r--r-- | gnu/home/services.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gnu/home/services.scm b/gnu/home/services.scm index 75ea54743d..99035686f1 100644 --- a/gnu/home/services.scm +++ b/gnu/home/services.scm @@ -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)) |