[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/05: vm-image: Remove 'network-manager-applet' from system profile.
From: |
guix-commits |
Subject: |
01/05: vm-image: Remove 'network-manager-applet' from system profile. |
Date: |
Thu, 16 May 2019 12:59:12 -0400 (EDT) |
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