summaryrefslogtreecommitdiff
path: root/gnu/system
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/system
parent9f20f7f8416c79e20a9670662630711cf00760bb (diff)
install: Use login-service.
* gnu/system/install.scm (installation-services): Use login-service.
Diffstat (limited to 'gnu/system')
-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))))