diff options
Diffstat (limited to 'gnu/services')
| -rw-r--r-- | gnu/services/base.scm | 6 | ||||
| -rw-r--r-- | gnu/services/desktop.scm | 16 |
2 files changed, 16 insertions, 6 deletions
diff --git a/gnu/services/base.scm b/gnu/services/base.scm index 64620a9b0a..541ca76f14 100644 --- a/gnu/services/base.scm +++ b/gnu/services/base.scm @@ -307,7 +307,8 @@ FILE-SYSTEM." '#$packages)))) (lambda () (mount-file-system - '#$(file-system->spec file-system) + (spec->file-system + '#$(file-system->spec file-system)) #:root "/")) (lambda () (setenv "PATH" $PATH))) @@ -322,9 +323,10 @@ FILE-SYSTEM." (umount #$target) #f)) - ;; We need an additional module. + ;; We need additional modules. (modules `(((gnu build file-systems) #:select (mount-file-system)) + (gnu system file-systems) ,@%default-modules))))))) (define (file-system-shepherd-services file-systems) diff --git a/gnu/services/desktop.scm b/gnu/services/desktop.scm index 527a3101cf..4b5100c27a 100644 --- a/gnu/services/desktop.scm +++ b/gnu/services/desktop.scm @@ -780,15 +780,23 @@ accountsservice web site} for more information." gnome-desktop-configuration (gnome-package gnome-package (default gnome))) +(define (gnome-polkit-settings config) + "Return the list of GNOME dependencies that provide polkit actions and +rules." + (let ((gnome (gnome-package config))) + (map (lambda (name) + ((package-direct-input-selector name) gnome)) + '("gnome-settings-daemon" + "gnome-control-center" + "gnome-system-monitor" + "gvfs")))) + (define gnome-desktop-service-type (service-type (name 'gnome-desktop) (extensions (list (service-extension polkit-service-type - (compose list - (package-direct-input-selector - "gnome-settings-daemon") - gnome-package)) + gnome-polkit-settings) (service-extension profile-service-type (compose list gnome-package)))))) |