services: account: Make 'user-homes' a one-shot service.
* gnu/system/shadow.scm (account-shepherd-service): Add 'one-shot?' field. Return #t from 'start'.
This commit is contained in:
parent
95ef8b85b1
commit
051b279fd0
|
@ -323,6 +323,7 @@ accounts among ACCOUNTS+GROUPS."
|
||||||
(list (shepherd-service
|
(list (shepherd-service
|
||||||
(requirement '(file-systems))
|
(requirement '(file-systems))
|
||||||
(provision '(user-homes))
|
(provision '(user-homes))
|
||||||
|
(one-shot? #t)
|
||||||
(modules '((gnu build activation)
|
(modules '((gnu build activation)
|
||||||
(gnu system accounts)))
|
(gnu system accounts)))
|
||||||
(start (with-imported-modules (source-module-closure
|
(start (with-imported-modules (source-module-closure
|
||||||
|
@ -332,9 +333,7 @@ accounts among ACCOUNTS+GROUPS."
|
||||||
(activate-user-home
|
(activate-user-home
|
||||||
(map sexp->user-account
|
(map sexp->user-account
|
||||||
(list #$@(map user-account->gexp accounts))))
|
(list #$@(map user-account->gexp accounts))))
|
||||||
#f))) ;stop
|
#t))) ;success
|
||||||
(stop #~(const #f))
|
|
||||||
(respawn? #f)
|
|
||||||
(documentation "Create user home directories."))))
|
(documentation "Create user home directories."))))
|
||||||
|
|
||||||
(define (shells-file shells)
|
(define (shells-file shells)
|
||||||
|
|
Loading…
Reference in New Issue