diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-05-16 14:37:23 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-05-16 14:37:23 +0200 |
| commit | fc0680929ded80a5ccdc0131613cb0679b54145d (patch) | |
| tree | 964b3466826fd8ba6a2c232941de9e1148215a1e | |
| parent | fbeb92d7607dc1dc6c3a34a536352636274a69de (diff) | |
| download | guix-fc0680929ded80a5ccdc0131613cb0679b54145d.tar.gz | |
vm-image: Remove 'network-manager-applet' from system profile.
This is a followup to 05d907ac6fc6e139389a91ab5540c0dc573a8ce7. * gnu/system/examples/vm-image.tmpl (services): Remove 'network-manager-applet'.
| -rw-r--r-- | gnu/system/examples/vm-image.tmpl | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/gnu/system/examples/vm-image.tmpl b/gnu/system/examples/vm-image.tmpl index 0dbd31fe0a..1ba47a166a 100644 --- a/gnu/system/examples/vm-image.tmpl +++ b/gnu/system/examples/vm-image.tmpl @@ -96,10 +96,13 @@ root ALL=(ALL) ALL ;; sense in a VM. (remove (lambda (service) (let ((type (service-kind service))) - (memq type (list gdm-service-type - wpa-supplicant-service-type - cups-pk-helper-service-type - network-manager-service-type)))) + (or (memq type + (list gdm-service-type + wpa-supplicant-service-type + cups-pk-helper-service-type + network-manager-service-type)) + (eq? 'network-manager-applet + (service-type-name type))))) (modify-services %desktop-services (login-service-type config => (login-configuration |