193/197: install: %installation-services: Make mingetty-service autologin to the installer.

[Danny Milosavljevic]

dannym pushed a commit to branch wip-installer-2
in repository guix.

commit e74b9ed4978b4502bb65de812b23523e86e67ade
Author: Danny Milosavljevic <address@hidden>
Date:   Tue Jul 4 01:23:54 2017 +0200

    install: %installation-services: Make mingetty-service autologin to the
    installer.
    
    * gnu/system/install.scm (%installation-services): Make mingetty-service
    autologin to the installer.
---
 gnu/system/install.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/gnu/system/install.scm b/gnu/system/install.scm
index 2fbf6e3..46c8493 100644
--- a/gnu/system/install.scm
+++ b/gnu/system/install.scm
@@ -252,7 +252,8 @@ You have been warned.  Thanks for being so brave.
 
     (list (mingetty-service (mingetty-configuration
                              (tty "tty1")
-                             (auto-login "root")))
+                             (auto-login "root")
+                             (login-program (guix-installer))))
 
           (login-service (login-configuration
                           (motd motd)))