diff options
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/services/base.scm | 22 | ||||
| -rw-r--r-- | gnu/services/desktop.scm | 4 |
2 files changed, 15 insertions, 11 deletions
diff --git a/gnu/services/base.scm b/gnu/services/base.scm index 0b4bd7ed0d..d9d73b4597 100644 --- a/gnu/services/base.scm +++ b/gnu/services/base.scm @@ -412,7 +412,11 @@ other things." (default 0)) ;; TODO: See nscd.conf in glibc for other options to add. (caches nscd-configuration-caches ;list of <nscd-cache> - (default %nscd-default-caches))) + (default %nscd-default-caches)) + (name-services nscd-configuration-name-services ;list of <packages> + (default '())) + (glibc nscd-configuration-glibc ;<package> + (default (canonical-package glibc)))) (define-record-type* <nscd-cache> nscd-cache make-nscd-cache nscd-cache? @@ -502,13 +506,10 @@ other things." (string-concatenate (map cache->config caches))))))) -(define* (nscd-service #:optional (config %nscd-default-configuration) - #:key (glibc (canonical-package glibc)) - (name-services '())) +(define* (nscd-service #:optional (config %nscd-default-configuration)) "Return a service that runs libc's name service cache daemon (nscd) with the -given @var{config}---an @code{<nscd-configuration>} object. Optionally, -@code{#:name-services} is a list of packages that provide name service switch - (NSS) modules needed by nscd. @xref{Name Service Switch}, for an example." +given @var{config}---an @code{<nscd-configuration>} object. @xref{Name +Service Switch}, for an example." (let ((nscd.conf (nscd.conf-file config))) (service (documentation "Run libc's name service cache daemon (nscd).") @@ -521,7 +522,8 @@ given @var{config}---an @code{<nscd-configuration>} object. Optionally, (mkdir-p "/var/db/nscd"))) ;for the persistent cache (start #~(make-forkexec-constructor - (list (string-append #$glibc "/sbin/nscd") + (list (string-append #$(nscd-configuration-glibc config) + "/sbin/nscd") "-f" #$nscd.conf "--foreground") #:environment-variables @@ -529,7 +531,9 @@ given @var{config}---an @code{<nscd-configuration>} object. Optionally, (string-join (map (lambda (dir) (string-append dir "/lib")) - (list #$@name-services)) + (list + #$@(nscd-configuration-name-services + config))) ":"))))) (stop #~(make-kill-destructor)) diff --git a/gnu/services/desktop.scm b/gnu/services/desktop.scm index 35b19146dd..346f916950 100644 --- a/gnu/services/desktop.scm +++ b/gnu/services/desktop.scm @@ -594,8 +594,8 @@ when they log out." (cond ;; Provide an nscd ready to use nss-mdns. ((memq 'nscd (service-provision service)) - (nscd-service (nscd-configuration) - #:name-services (list nss-mdns))) + (nscd-service (nscd-configuration + (name-services (list nss-mdns))))) ;; Add more rules to udev-service. ;; |