summaryrefslogtreecommitdiff
path: root/gnu/home/services.scm
diff options
context:
space:
mode:
authorAndrew Tropin <andrew@trop.in>2022-01-14 09:16:32 +0300
committerAndrew Tropin <andrew@trop.in>2022-08-19 18:55:40 +0300
commitffc391500ac7eae1ef100d8d36f6c01f4f606170 (patch)
tree9fe55786fc75f37c3c5e5180c10a9ea5b3623890 /gnu/home/services.scm
parent65cabb010e3388d10f9b25ec560bfcfab5f810d4 (diff)
home: Use absolute path for home in activation script.
* gnu/home/services.scm (compute-activation-script): Use absolute path for home in activation script.
Diffstat (limited to 'gnu/home/services.scm')
-rw-r--r--gnu/home/services.scm5
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))