services: Unmount user file systems after process termination.
* gnu/services/base.scm (user-unmount-service-type): Change label and dmd name to 'user-file-systems'. (user-processes-service-type)[requirement]: Add 'user-file-systems'.
This commit is contained in:
parent
6f305ea5fd
commit
5f44ee4fa0
|
@ -207,11 +207,11 @@ object."
|
|||
|
||||
(define user-unmount-service-type
|
||||
(dmd-service-type
|
||||
'user-unmount
|
||||
'user-file-systems
|
||||
(lambda (known-mount-points)
|
||||
(dmd-service
|
||||
(documentation "Unmount manually-mounted file systems.")
|
||||
(provision '(user-unmount))
|
||||
(provision '(user-file-systems))
|
||||
(start #~(const #t))
|
||||
(stop #~(lambda args
|
||||
(define (known? mount-point)
|
||||
|
@ -251,7 +251,7 @@ in KNOWN-MOUNT-POINTS when it is stopped."
|
|||
(dmd-service
|
||||
(documentation "When stopped, terminate all user processes.")
|
||||
(provision '(user-processes))
|
||||
(requirement (cons 'root-file-system
|
||||
(requirement (cons* 'root-file-system 'user-file-systems
|
||||
(map file-system->dmd-service-name
|
||||
requirements)))
|
||||
(start #~(const #t))
|
||||
|
|
Loading…
Reference in New Issue