From 5f44ee4fa02699effed459266ff00a958bfd788e Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 14 Oct 2015 21:16:55 +0200 Subject: 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'. --- gnu/services/base.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/gnu/services/base.scm b/gnu/services/base.scm index 84869ae31b..336cc4dec9 100644 --- a/gnu/services/base.scm +++ b/gnu/services/base.scm @@ -207,11 +207,11 @@ (define* (file-system-service file-system) (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 @@ (define user-processes-service-type (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) -- cgit v1.2.3