From 0b6f49ef69b4429e05f6e76ccd2ee9e1d07e7776 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Wed, 23 Apr 2014 15:47:42 +0200
Subject: system: Factorize (gnu system).

* gnu/system.scm (operating-system-accounts,
  operating-system-etc-directory): New procedures.
  (operating-system-derivation): Use them.
* gnu/services/base.scm (%base-services): Add 'host-name-service'
  invocation.
---
 gnu/services/base.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'gnu/services/base.scm')

diff --git a/gnu/services/base.scm b/gnu/services/base.scm
index d6c1707c6a..3145a657f8 100644
--- a/gnu/services/base.scm
+++ b/gnu/services/base.scm
@@ -186,6 +186,9 @@ This is the GNU operating system, welcome!\n\n")))
           (mingetty-service "tty6" #:motd motd)
           (syslog-service)
           (guix-service)
-          (nscd-service))))
+          (nscd-service)
+
+          ;; FIXME: Make this an activation-time thing instead of a service.
+          (host-name-service "gnu"))))
 
 ;;; base.scm ends here
-- 
cgit v1.2.3