summaryrefslogtreecommitdiff
path: root/gnu/installer/final.scm
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/installer/final.scm')
-rw-r--r--gnu/installer/final.scm5
1 files changed, 2 insertions, 3 deletions
diff --git a/gnu/installer/final.scm b/gnu/installer/final.scm
index 2087536502e..3f6dacc4903 100644
--- a/gnu/installer/final.scm
+++ b/gnu/installer/final.scm
@@ -170,8 +170,7 @@ or #f. Return #t on success and #f on failure."
170 (database-dir "/var/guix/db") 170 (database-dir "/var/guix/db")
171 (database-file (string-append database-dir "/db.sqlite")) 171 (database-file (string-append database-dir "/db.sqlite"))
172 (saved-database (string-append database-dir "/db.save")) 172 (saved-database (string-append database-dir "/db.save"))
173 (ret #f) 173 (ret #f))
174 (path (getenv "PATH")))
175 (mkdir-p (%installer-target-dir)) 174 (mkdir-p (%installer-target-dir))
176 175
177 ;; We want to initialize user passwords but we don't want to store them in 176 ;; We want to initialize user passwords but we don't want to store them in
@@ -210,7 +209,7 @@ or #f. Return #t on success and #f on failure."
210 (setvbuf (current-output-port) 'none) 209 (setvbuf (current-output-port) 'none)
211 (setvbuf (current-error-port) 'none) 210 (setvbuf (current-error-port) 'none)
212 211
213 (setenv "PATH" path) 212 (setenv "PATH" "/run/current-system/profile/bin/")
214 213
215 (set! ret (run-command install-command))) 214 (set! ret (run-command install-command)))
216 (lambda () 215 (lambda ()