aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2019-04-23 14:51:47 +0200
committerLudovic Courtès <ludo@gnu.org>2019-04-23 16:38:12 +0200
commit051b279fd08eec80cda248aa12e6875005b7dc4f (patch)
treec4765846c558489ac91e7c0db65640978aab145c
parent95ef8b85b16f19557ea07d0d0cbf856f85657368 (diff)
downloadguix-051b279fd08eec80cda248aa12e6875005b7dc4f.tar.gz
guix-051b279fd08eec80cda248aa12e6875005b7dc4f.zip
services: account: Make 'user-homes' a one-shot service.
* gnu/system/shadow.scm (account-shepherd-service): Add 'one-shot?' field. Return #t from 'start'.
-rw-r--r--gnu/system/shadow.scm5
1 files changed, 2 insertions, 3 deletions
diff --git a/gnu/system/shadow.scm b/gnu/system/shadow.scm
index 7dc36f4a45..13b8b14095 100644
--- a/gnu/system/shadow.scm
+++ b/gnu/system/shadow.scm
@@ -323,6 +323,7 @@ accounts among ACCOUNTS+GROUPS."
(list (shepherd-service
(requirement '(file-systems))
(provision '(user-homes))
+ (one-shot? #t)
(modules '((gnu build activation)
(gnu system accounts)))
(start (with-imported-modules (source-module-closure
@@ -332,9 +333,7 @@ accounts among ACCOUNTS+GROUPS."
(activate-user-home
(map sexp->user-account
(list #$@(map user-account->gexp accounts))))
- #f))) ;stop
- (stop #~(const #f))
- (respawn? #f)
+ #t))) ;success
(documentation "Create user home directories."))))
(define (shells-file shells)