From 568841d4910df8ce904959b843c0c3559f282450 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Tue, 7 Oct 2014 21:17:22 +0200 Subject: [PATCH] system: Export 'local-host-aliases'. * gnu/system.scm (local-host-aliases): New procedure. (default-/etc/hosts): Use it. --- gnu/system.scm | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/gnu/system.scm b/gnu/system.scm index ed8289b375..9906695bd9 100644 --- a/gnu/system.scm +++ b/gnu/system.scm @@ -75,6 +75,7 @@ operating-system-profile operating-system-grub.cfg + local-host-aliases %setuid-programs %base-packages @@ -318,11 +319,14 @@ explicitly appear in OS." " This is the GNU system. Welcome.\n") +(define (local-host-aliases host-name) + "Return aliases for HOST-NAME, to be used in /etc/hosts." + (string-append "127.0.0.1 localhost " host-name "\n" + "::1 localhost " host-name "\n")) + (define (default-/etc/hosts host-name) "Return the default /etc/hosts file." - (text-file "hosts" - (string-append "127.0.0.1 localhost " host-name "\n" - "::1 localhost " host-name "\n"))) + (text-file "hosts" (local-host-aliases host-name))) (define* (etc-directory #:key (locale "C") (timezone "Europe/Paris")