diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-04-23 14:51:47 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-04-23 16:38:12 +0200 |
| commit | 051b279fd08eec80cda248aa12e6875005b7dc4f (patch) | |
| tree | c4765846c558489ac91e7c0db65640978aab145c /gnu/system/shadow.scm | |
| parent | 95ef8b85b16f19557ea07d0d0cbf856f85657368 (diff) | |
services: account: Make 'user-homes' a one-shot service.
* gnu/system/shadow.scm (account-shepherd-service): Add 'one-shot?'
field. Return #t from 'start'.
Diffstat (limited to 'gnu/system/shadow.scm')
| -rw-r--r-- | gnu/system/shadow.scm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/gnu/system/shadow.scm b/gnu/system/shadow.scm index 7dc36f4a451..13b8b140954 100644 --- a/gnu/system/shadow.scm +++ b/gnu/system/shadow.scm | |||
| @@ -323,6 +323,7 @@ accounts among ACCOUNTS+GROUPS." | |||
| 323 | (list (shepherd-service | 323 | (list (shepherd-service |
| 324 | (requirement '(file-systems)) | 324 | (requirement '(file-systems)) |
| 325 | (provision '(user-homes)) | 325 | (provision '(user-homes)) |
| 326 | (one-shot? #t) | ||
| 326 | (modules '((gnu build activation) | 327 | (modules '((gnu build activation) |
| 327 | (gnu system accounts))) | 328 | (gnu system accounts))) |
| 328 | (start (with-imported-modules (source-module-closure | 329 | (start (with-imported-modules (source-module-closure |
| @@ -332,9 +333,7 @@ accounts among ACCOUNTS+GROUPS." | |||
| 332 | (activate-user-home | 333 | (activate-user-home |
| 333 | (map sexp->user-account | 334 | (map sexp->user-account |
| 334 | (list #$@(map user-account->gexp accounts)))) | 335 | (list #$@(map user-account->gexp accounts)))) |
| 335 | #f))) ;stop | 336 | #t))) ;success |
| 336 | (stop #~(const #f)) | ||
| 337 | (respawn? #f) | ||
| 338 | (documentation "Create user home directories.")))) | 337 | (documentation "Create user home directories.")))) |
| 339 | 338 | ||
| 340 | (define (shells-file shells) | 339 | (define (shells-file shells) |
