diff options
Diffstat (limited to 'gnu/system/examples')
| -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 0dbd31fe0a7..1ba47a166af 100644 --- a/gnu/system/examples/vm-image.tmpl +++ b/gnu/system/examples/vm-image.tmpl | |||
| @@ -96,10 +96,13 @@ root ALL=(ALL) ALL | |||
| 96 | ;; sense in a VM. | 96 | ;; 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 | (memq type (list gdm-service-type | 99 | (or (memq type |
| 100 | wpa-supplicant-service-type | 100 | (list gdm-service-type |
| 101 | cups-pk-helper-service-type | 101 | wpa-supplicant-service-type |
| 102 | network-manager-service-type)))) | 102 | cups-pk-helper-service-type |
| 103 | network-manager-service-type)) | ||
| 104 | (eq? 'network-manager-applet | ||
| 105 | (service-type-name type))))) | ||
| 103 | (modify-services %desktop-services | 106 | (modify-services %desktop-services |
| 104 | (login-service-type config => | 107 | (login-service-type config => |
| 105 | (login-configuration | 108 | (login-configuration |