jmd pushed a commit to branch wip-installer
in repository guix.
commit d9655fdbff9f260bcf457aea7a68098a675a93cf
Author: John Darrington <[email protected]>
Date: Tue Jan 3 12:51:01 2017 +0100
installer: Add confidence indicator.
* gnu/system/installer/install.scm (install-page-key-handler): Display a
message
immediately before starting guix system init.
---
gnu/system/installer/install.scm | 3 +++
1 file changed, 3 insertions(+)
diff --git a/gnu/system/installer/install.scm b/gnu/system/installer/install.scm
index 65e7520..b92fe86 100644
--- a/gnu/system/installer/install.scm
+++ b/gnu/system/installer/install.scm
@@ -94,6 +94,9 @@
(file-exists? (string-append target "/etc/config.scm"))
+ (display (gettext "Installing the system ...") window-port)
+ (force-output window-port)
+
(zero? (pipe-cmd window-port "guix" "guix" "system" "init"
(string-append target "/etc/config.scm")
target))
