me
/
guix
Archived
1
0
Fork 0
Code

installer: Honor /tmp/installer-system-init-options. 

* gnu/installer/final.scm (install-system): Honor
"/tmp/installer-system-init-options".
master
Ludovic Courtès 2020-02-19 22:54:11 +01:00
parent 8a4b11c6a9
commit e458726ab4
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
gnu/installer/final.scm
View File

@ -111,9 +111,19 @@ cow-store service."
Start COW-STORE service on target directory and launch guix install command in Start COW-STORE service on target directory and launch guix install command in
a subshell. LOCALE must be the locale name under which that command will run, a subshell. LOCALE must be the locale name under which that command will run,
or #f. Return #t on success and #f on failure." or #f. Return #t on success and #f on failure."
(let ((install-command (list "guix" "system" "init" "--fallback" (let* ((options (catch 'system-error
(%installer-configuration-file) (lambda ()
(%installer-target-dir)))) ;; If this file exists, it can provide
;; additional command-line options.
(call-with-input-file
"/tmp/installer-system-init-options"
read))
(const '())))
(install-command (append (list "guix" "system" "init"
"--fallback")
options
(list (%installer-configuration-file)
(%installer-target-dir)))))
(mkdir-p (%installer-target-dir)) (mkdir-p (%installer-target-dir))
;; We want to initialize user passwords but we don't want to store them in ;; We want to initialize user passwords but we don't want to store them in