nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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:
Ludovic Courtès 2015-10-14 21:16:55 +02:00
parent 6f305ea5fd
commit 5f44ee4fa0
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
gnu/services/base.scm
View File

@ -207,11 +207,11 @@ object."
(define user-unmount-service-type (define user-unmount-service-type
(dmd-service-type (dmd-service-type
'user-unmount 'user-file-systems
(lambda (known-mount-points) (lambda (known-mount-points)
(dmd-service (dmd-service
(documentation "Unmount manually-mounted file systems.") (documentation "Unmount manually-mounted file systems.")
(provision '(user-unmount)) (provision '(user-file-systems))
(start #~(const #t)) (start #~(const #t))
(stop #~(lambda args (stop #~(lambda args
(define (known? mount-point) (define (known? mount-point)
@ -251,9 +251,9 @@ in KNOWN-MOUNT-POINTS when it is stopped."
(dmd-service (dmd-service
(documentation "When stopped, terminate all user processes.") (documentation "When stopped, terminate all user processes.")
(provision '(user-processes)) (provision '(user-processes))
(requirement (cons 'root-file-system (requirement (cons* 'root-file-system 'user-file-systems
(map file-system->dmd-service-name (map file-system->dmd-service-name
requirements))) requirements)))
(start #~(const #t)) (start #~(const #t))
(stop #~(lambda _ (stop #~(lambda _
(define (kill-except omit signal) (define (kill-except omit signal)