summary refs log tree commit diff
path: root/gnu/system.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-02-19 21:08:28 +0100
committerLudovic Courtès <ludo@gnu.org>2014-02-19 21:08:28 +0100
commit8b198abecde8c846eaa464ac1b41cbc18556b5e8 (patch)
tree738bd9834c4ac6e7717ab793a0e62efdfc18d701 /gnu/system.scm
parentdb4fdc04cc05495788ee54ae25baf8cd056917dc (diff)
downloadguix-8b198abecde8c846eaa464ac1b41cbc18556b5e8.tar.gz
gnu: Define '%base-services'.
* gnu/services/base.scm (%base-services): New variable.
* gnu/system.scm (<operating-system>)[services]: Change the default
  value to %BASE-SERVICES.
* doc/guix.texi (Using the Configuration System): Change
  '%standard-services' to '%base-services'.
Diffstat (limited to 'gnu/system.scm')
-rw-r--r--gnu/system.scm20
1 files changed, 1 insertions, 19 deletions
diff --git a/gnu/system.scm b/gnu/system.scm
index f05b7a092a..e6346106a2 100644
--- a/gnu/system.scm
+++ b/gnu/system.scm
@@ -29,8 +29,6 @@
   #:use-module (gnu services)
   #:use-module (gnu services dmd)
   #:use-module (gnu services base)
-  #:use-module ((gnu services networking)
-                #:select (static-networking-service))
   #:use-module (gnu system grub)
   #:use-module (gnu system shadow)
   #:use-module (gnu system linux)
@@ -107,23 +105,7 @@
   (locale   operating-system-locale)              ; string
 
   (services operating-system-services             ; list of monadic services
-            (default
-              (let ((motd (text-file "motd" "
-This is the GNU operating system, welcome!\n\n")))
-                (list (mingetty-service "tty1" #:motd motd)
-                      (mingetty-service "tty2" #:motd motd)
-                      (mingetty-service "tty3" #:motd motd)
-                      (mingetty-service "tty4" #:motd motd)
-                      (mingetty-service "tty5" #:motd motd)
-                      (mingetty-service "tty6" #:motd motd)
-                      (syslog-service)
-                      (guix-service)
-                      (nscd-service)
-
-                      ;; QEMU networking settings.
-                      (static-networking-service "eth0" "10.0.2.10"
-                                                 #:name-servers '("10.0.2.3")
-                                                 #:gateway "10.0.2.2"))))))
+            (default %base-services)))