mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 21:38:07 -05:00
linux-container: Remove hosts-service-type when network is shared.
Fixes <https://issues.guix.gnu.org/61627>. * gnu/system/linux-container.scm (container-essential-services): When shared-network? is true, remove the hosts-service-type service kind.
This commit is contained in:
parent
36b22aa75a
commit
42fbe62d52
1 changed files with 7 additions and 3 deletions
|
@ -5,6 +5,7 @@
|
|||
;;; Copyright © 2020 Efraim Flashner <efraim@flashner.co.il>
|
||||
;;; Copyright © 2020 Google LLC
|
||||
;;; Copyright © 2022 Ricardo Wurmus <rekado@elephly.net>
|
||||
;;; Copyright © 2023 Pierre Langlois <pierre.langlois@gmx.com>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
;;;
|
||||
|
@ -49,9 +50,12 @@ (define* (container-essential-services os #:key shared-network?)
|
|||
(define base
|
||||
(remove (lambda (service)
|
||||
(memq (service-kind service)
|
||||
(list (service-kind %linux-bare-metal-service)
|
||||
firmware-service-type
|
||||
system-service-type)))
|
||||
(cons* (service-kind %linux-bare-metal-service)
|
||||
firmware-service-type
|
||||
system-service-type
|
||||
(if shared-network?
|
||||
(list hosts-service-type)
|
||||
'()))))
|
||||
(operating-system-default-essential-services os)))
|
||||
|
||||
(cons (service system-service-type
|
||||
|
|
Loading…
Reference in a new issue