diff --git a/gnu/system/linux-container.scm b/gnu/system/linux-container.scm index 8e208d3a704..e9be2c9d8a4 100644 --- a/gnu/system/linux-container.scm +++ b/gnu/system/linux-container.scm @@ -78,12 +78,13 @@ from OS that are needed on the bare metal and not in a container." (define dummy-networking-service-type (shepherd-service-type 'dummy-networking - (const (shepherd-service - (documentation "Provide loopback and networking without actually + (lambda (provision) + (shepherd-service + (documentation "Provide loopback and networking without actually doing anything.") - (provision '(loopback networking)) - (start #~(const #t)))) - #f + (provision provision) + (start #~(const #t)))) + '(loopback networking) (description "Provide loopback and networking without actually doing anything. This service is used by guest systems running in containers, where networking support is provided by the host."))) @@ -135,7 +136,7 @@ containerized OS. EXTRA-FILE-SYSTEMS is a list of file systems to add to OS." dhcp-client-service-type network-manager-service-type connman-service-type) - (list)))) + (list static-networking-service-type)))) ;loopback (define services-to-add ;; Many Guix services depend on a 'networking' shepherd @@ -143,8 +144,10 @@ containerized OS. EXTRA-FILE-SYSTEMS is a list of file systems to add to OS." ;; service when we are sure that networking is already set up ;; in the host and can be used. That prevents double setup. (if shared-network? - (list (service dummy-networking-service-type)) - '())) + (list (service dummy-networking-service-type + '(loopback networking))) + (list (service dummy-networking-service-type + '(loopback))))) (define os-with-base-essential-services (operating-system