me
/
guix
Archived
1
0
Fork 0
Code

services: nfs: Allow pipefs-service-type to be extended. 

* gnu/services/nfs.scm (pipefs-service-type): Rewrite using SERVICE-TYPE to
add ability to extend the service.
master
Ricardo Wurmus 2020-01-03 17:50:45 +01:00
parent ba1808d5e7
commit 25c8c8cd4f
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 25 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
gnu/services/nfs.scm
View File

@ -24,6 +24,7 @@
#:use-module (gnu packages linux) #:use-module (gnu packages linux)
#:use-module (guix) #:use-module (guix)
#:use-module (guix records) #:use-module (guix records)
#:use-module (srfi srfi-1)
#:use-module (ice-9 match) #:use-module (ice-9 match)
#:use-module (gnu build file-systems) #:use-module (gnu build file-systems)
#:export (rpcbind-service-type #:export (rpcbind-service-type
@ -96,8 +97,7 @@
(default default-pipefs-directory))) (default default-pipefs-directory)))
(define pipefs-service-type (define pipefs-service-type
(shepherd-service-type (let ((proc
'pipefs
(lambda (config) (lambda (config)
(define pipefs-directory (pipefs-configuration-mount-point config)) (define pipefs-directory (pipefs-configuration-mount-point config))
@ -113,6 +113,17 @@
(stop #~(lambda (pid . args) (stop #~(lambda (pid . args)
(umount #$pipefs-directory MNT_DETACH) (umount #$pipefs-directory MNT_DETACH)
(not (member #$pipefs-directory (mount-points))))))))) (not (member #$pipefs-directory (mount-points)))))))))
(service-type
(name 'pipefs)
(extensions
(list (service-extension shepherd-root-service-type
(compose list proc))))
;; We use the extensions feature to allow other services to automatically
;; configure and start this service. Only one value can be provided. We
;; override it with the value returned by the extending service.
(compose identity)
(extend (lambda (config values) (first values)))
(default-value (pipefs-configuration)))))