summary refs log tree commit diff
path: root/gnu
diff options
context:
space:
mode:
authorDavid Craven <david@craven.ch>2016-09-11 18:54:13 +0200
committerDavid Craven <david@craven.ch>2016-09-11 18:54:13 +0200
commit2932ab9ca44cc6a5fac6355e228cc691ef29a1a2 (patch)
tree8ff2f9f205350d28a384195d8afd016c5d93329a /gnu
parent9f20f7f8416c79e20a9670662630711cf00760bb (diff)
downloadguix-2932ab9ca44cc6a5fac6355e228cc691ef29a1a2.tar.gz
install: Use login-service.
* gnu/system/install.scm (installation-services): Use login-service.
Diffstat (limited to 'gnu')
-rw-r--r--gnu/system/install.scm6
1 files changed, 3 insertions, 3 deletions
diff --git a/gnu/system/install.scm b/gnu/system/install.scm
index 5acfa2c65b..b28925f432 100644
--- a/gnu/system/install.scm
+++ b/gnu/system/install.scm
@@ -268,21 +268,21 @@ You have been warned.  Thanks for being so brave.
 ")))
     (define (normal-tty tty)
       (mingetty-service (mingetty-configuration (tty tty)
-                                                (motd motd)
                                                 (auto-login "root")
                                                 (login-pause? #t))))
 
     (list (mingetty-service (mingetty-configuration
                              (tty "tty1")
-                             (motd motd)
                              (auto-login "root")))
 
+          (login-service (login-configuration
+                          (motd motd)))
+
           ;; Documentation.  The manual is in UTF-8, but
           ;; 'console-font-service' sets up Unicode support and loads a font
           ;; with all the useful glyphs like em dash and quotation marks.
           (mingetty-service (mingetty-configuration
                              (tty "tty2")
-                             (motd motd)
                              (auto-login "guest")
                              (login-program (log-to-info))))