~ruther/guix-local: services: Unmount user file systems after process termination.

5f44ee4fa02699effed459266ff00a958bfd788e — Ludovic Courtès 10 years ago 6f305ea

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'.

patch browse .tar.gz

1 files changed, 5 insertions(+), 5 deletions(-)

M gnu/services/base.scm

M gnu/services/base.scm => gnu/services/base.scm +5 -5

@@ 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,9 251,9 @@ 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
-                          (map file-system->dmd-service-name
-                               requirements)))
+       (requirement (cons* 'root-file-system 'user-file-systems
+                           (map file-system->dmd-service-name
+                                requirements)))
        (start #~(const #t))
        (stop #~(lambda _
                  (define (kill-except omit signal)