diff options
Diffstat (limited to 'gnu/system.scm')
-rw-r--r-- | gnu/system.scm | 10 |
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") |