aboutsummaryrefslogtreecommitdiff
path: root/gnu
diff options
context:
space:
mode:
Diffstat (limited to 'gnu')
-rw-r--r--gnu/system.scm10
1 files 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")