mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-31 23:06:59 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
* gnu/installer/final.scm (install-system): Honor
"/tmp/installer-system-init-options".
This commit is contained in:
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 @@ (define* (install-system locale #:key (users '()))
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