summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2019-05-16 14:42:40 +0200
committerLudovic Courtès <ludo@gnu.org>2019-05-16 14:42:40 +0200
commit9c64080dce9fa3e77c48ae962ff1edc5d0863c6a (patch)
tree67ec4e4404810cb0270219bcc7c2bac9170b5596
parentfc0680929ded80a5ccdc0131613cb0679b54145d (diff)
vm-image: Remove ModemManager.
This is a followup to 36f5d78d4af02ad23c33bfb46702d92086bf2796. * gnu/system/examples/vm-image.tmpl (services): Remove MODEM-MANAGER-SERVICE-TYPE.
-rw-r--r--gnu/system/examples/vm-image.tmpl7
1 files changed, 4 insertions, 3 deletions
diff --git a/gnu/system/examples/vm-image.tmpl b/gnu/system/examples/vm-image.tmpl
index 1ba47a166af..7d984155bc6 100644
--- a/gnu/system/examples/vm-image.tmpl
+++ b/gnu/system/examples/vm-image.tmpl
@@ -92,15 +92,16 @@ root ALL=(ALL) ALL
92 ;; Use the DHCP client service rather than NetworkManager. 92 ;; Use the DHCP client service rather than NetworkManager.
93 (service dhcp-client-service-type)) 93 (service dhcp-client-service-type))
94 94
95 ;; Remove GDM, NetworkManager, and wpa-supplicant, which don't make 95 ;; Remove GDM, ModemManager, NetworkManager, and wpa-supplicant,
96 ;; sense in a VM. 96 ;; which don't make sense in a VM.
97 (remove (lambda (service) 97 (remove (lambda (service)
98 (let ((type (service-kind service))) 98 (let ((type (service-kind service)))
99 (or (memq type 99 (or (memq type
100 (list gdm-service-type 100 (list gdm-service-type
101 wpa-supplicant-service-type 101 wpa-supplicant-service-type
102 cups-pk-helper-service-type 102 cups-pk-helper-service-type
103 network-manager-service-type)) 103 network-manager-service-type
104 modem-manager-service-type))
104 (eq? 'network-manager-applet 105 (eq? 'network-manager-applet
105 (service-type-name type))))) 106 (service-type-name type)))))
106 (modify-services %desktop-services 107 (modify-services %desktop-services