summaryrefslogtreecommitdiff
path: root/gnu
diff options
context:
space:
mode:
Diffstat (limited to 'gnu')
-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