01/05: vm-image: Remove 'network-manager-applet' from system profile.

[guix-commits]

civodul pushed a commit to branch version-1.0.1
in repository guix.

commit fc0680929ded80a5ccdc0131613cb0679b54145d
Author: Ludovic Courtès <address@hidden>
Date:   Thu May 16 14:37:23 2019 +0200

    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'.
---
 gnu/system/examples/vm-image.tmpl | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/gnu/system/examples/vm-image.tmpl 
b/gnu/system/examples/vm-image.tmpl
index 0dbd31f..1ba47a1 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