@@ -16940,6 +16940,13 @@ List of arguments for this type of link.
@end table
@end deftp
+@cindex loopback device
+@defvr {Scheme Variable} %loopback-static-networking
+This is the @code{static-networking} record representing the ``loopback
+device'', @code{lo}, for IP addresses 127.0.0.1 and ::1, and providing
+the @code{loopback} Shepherd service.
+@end defvr
+
@cindex networking, with QEMU
@cindex QEMU, networking
@defvr {Scheme Variable} %qemu-static-networking
@@ -113,6 +113,7 @@ (define-module (gnu services base)
static-networking-service
static-networking-service-type
+ %loopback-static-networking
%qemu-static-networking
udev-configuration
@@ -2671,6 +2672,15 @@ (define-deprecated (static-networking-service interface ip
(provision (or provision '(networking)))
(name-servers name-servers)))))
+(define %loopback-static-networking
+ ;; The loopback device.
+ (static-networking
+ (addresses (list (network-address
+ (device "lo")
+ (value "127.0.0.1"))))
+ (requirement '())
+ (provision '(loopback))))
+
(define %qemu-static-networking
;; Networking configuration for QEMU's user-mode network stack (info "(QEMU)
;; Using the user mode network stack").
@@ -2715,12 +2725,7 @@ (define %base-services
(tty "tty6")))
(service static-networking-service-type
- (list (static-networking
- (addresses (list (network-address
- (device "lo")
- (value "127.0.0.1"))))
- (requirement '())
- (provision '(loopback)))))
+ (list %loopback-static-networking))
(syslog-service)
(service urandom-seed-service-type)
(service guix-service-type)
@@ -79,13 +79,7 @@ (define %base-services/hurd
(service hurd-getty-service-type (hurd-getty-configuration
(tty "tty2")))
(service static-networking-service-type
- (list (static-networking
- (addresses
- (list (network-address
- (device "lo")
- (value "127.0.0.1"))))
- (requirement '())
- (provision '(loopback)))
+ (list %loopback-static-networking
;; QEMU user-mode networking. To get "eth0", you need
;; QEMU to emulate a device for which Mach has an
@@ -408,13 +408,7 @@ (define bare-bones-os
;; Loopback device, needed by OpenSSH notably.
(service static-networking-service-type
- (list (static-networking
- (addresses
- (list (network-address
- (device "lo")
- (value "127.0.0.1"))))
- (requirement '())
- (provision '(loopback)))))
+ (list %loopback-static-networking))
(service wpa-supplicant-service-type)
(dbus-service)