diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-07-12 22:46:44 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-07-12 23:17:53 +0200 |
| commit | 4a3b3b073a37ca5f3dcaa09cf6d19f3b1b76e3ca (patch) | |
| tree | 8825efe37ebab06b2cfccd371ece705352bd36b9 /gnu/services | |
| parent | f111b327a960b7cdfe77557dc06b5706a72e38dd (diff) | |
| download | patches-4a3b3b073a37ca5f3dcaa09cf6d19f3b1b76e3ca.tar patches-4a3b3b073a37ca5f3dcaa09cf6d19f3b1b76e3ca.tar.gz | |
services: Provide a 'loopback' service by default.
* gnu/services/networking.scm (static-networking-service): Add
#:provision parameter; use it.
* gnu/services/base.scm (%base-services): Call
'static-networking-service' for "lo".
Diffstat (limited to 'gnu/services')
| -rw-r--r-- | gnu/services/base.scm | 3 | ||||
| -rw-r--r-- | gnu/services/networking.scm | 3 |
2 files changed, 5 insertions, 1 deletions
diff --git a/gnu/services/base.scm b/gnu/services/base.scm index fb2e2928a6..eb7c9dce04 100644 --- a/gnu/services/base.scm +++ b/gnu/services/base.scm @@ -20,6 +20,7 @@ #:use-module ((guix store) #:select (%store-prefix)) #:use-module (gnu services) + #:use-module (gnu services networking) #:use-module (gnu system shadow) ; 'user-account', etc. #:use-module (gnu system linux) ; 'pam-service', etc. #:use-module (gnu packages admin) @@ -461,6 +462,8 @@ This is the GNU operating system, welcome!\n\n"))) (mingetty-service "tty4" #:motd motd) (mingetty-service "tty5" #:motd motd) (mingetty-service "tty6" #:motd motd) + (static-networking-service "lo" "127.0.0.1" + #:provision '(loopback)) (syslog-service) (guix-service) (nscd-service) diff --git a/gnu/services/networking.scm b/gnu/services/networking.scm index ccc322648b..f03161fe58 100644 --- a/gnu/services/networking.scm +++ b/gnu/services/networking.scm @@ -33,6 +33,7 @@ (define* (static-networking-service interface ip #:key gateway + (provision '(networking)) (name-servers '()) (inetutils inetutils) (net-tools net-tools)) @@ -49,7 +50,7 @@ gateway." (documentation (string-append "Set up networking on the '" interface "' interface using a static IP address.")) - (provision '(networking)) + (provision provision) (start #~(lambda _ ;; Return #t if successfully started. (and (zero? (system* (string-append #$inetutils |