Browse Source

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

* gnu/installer/final.scm (install-system): Honor
"/tmp/installer-system-init-options".
guile-daemon
Ludovic Courtès 2 years ago
parent
commit
e458726ab4
No known key found for this signature in database GPG Key ID: 90B11993D9AEBB5
  1. 16
      gnu/installer/final.scm

16
gnu/installer/final.scm

@ -111,9 +111,19 @@ cow-store service."
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,
or #f. Return #t on success and #f on failure."
(let ((install-command (list "guix" "system" "init" "--fallback"
(%installer-configuration-file)
(%installer-target-dir))))
(let* ((options (catch 'system-error
(lambda ()
;; 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))
;; We want to initialize user passwords but we don't want to store them in

Loading…
Cancel
Save