diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-10-07 21:17:22 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-10-07 23:18:41 +0200 |
| commit | 568841d4910df8ce904959b843c0c3559f282450 (patch) | |
| tree | cded38e4b0f93618edea75c4ca6f47cc457267cd | |
| parent | c28ba7aa60729c0629ae4a5b35aec63cd9f36dd8 (diff) | |
system: Export 'local-host-aliases'.
* gnu/system.scm (local-host-aliases): New procedure.
(default-/etc/hosts): Use it.
| -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") |