diff options
| author | Mark H Weaver <[email protected]> | 2014-07-27 20:15:50 -0400 |
|---|---|---|
| committer | Mark H Weaver <[email protected]> | 2014-07-27 20:15:50 -0400 |
| commit | 33690ffde5af2c516bc6b2dd060ab9cf7ab88eb2 (patch) | |
| tree | d91daca5084dec6ede304d2c9ff1c376a740e416 /gnu/system.scm | |
| parent | 5c47b06b4370e7d6590b0c75404d694a52897293 (diff) | |
| parent | b9663471a87916f36b50af2a0f885f6f08dc3ed2 (diff) | |
Merge branch 'master' into core-updates
Diffstat (limited to 'gnu/system.scm')
| -rw-r--r-- | gnu/system.scm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/gnu/system.scm b/gnu/system.scm index 20942ec7f0..68f9438693 100644 --- a/gnu/system.scm +++ b/gnu/system.scm @@ -181,11 +181,13 @@ as 'needed-for-boot'." (sequence %store-monad (map (match-lambda (($ <file-system> device title target type flags opts - #f check?) + #f check? create?) (file-system-service device target type #:title title #:check? check? - #:options opts))) + #:create-mount-point? create? + #:options opts + #:flags flags))) file-systems))) (define (essential-services os) @@ -361,7 +363,8 @@ alias ll='ls -l' 'active-groups'." #~(list #$(user-group-name group) #$(user-group-password group) - #$(user-group-id group))) + #$(user-group-id group) + #$(user-group-system? group))) (define (user-account->gexp account) "Turn ACCOUNT, a <user-account> object, into a list-valued gexp suitable for |