system: Recognize more file system flags.

* guix/build/linux-initrd.scm (MS_NOSUID, MS_NODEV, MS_NOEXEC): New
  variables.
  (mount-flags->bit-mask): New procedure.
  (mount-file-system)[flags->bit-mask]: Remove.
  Use 'mount-flags->bit-mask' instead.
  In /etc/mtab, use the empty string when OPTIONS is false.
* gnu/services/base.scm (file-system-service): Add #:flags parameter and
  honor it.
* gnu/system.scm (other-file-system-services): Pass FLAGS to
  'file-system-service'.
This commit is contained in:
Ludovic Courtès 2014-07-23 00:44:27 +02:00
parent a85b83d227
commit 2c071ce96e
4 changed files with 38 additions and 17 deletions

View file

@ -186,7 +186,8 @@ as 'needed-for-boot'."
#:title title
#:check? check?
#:create-mount-point? create?
#:options opts)))
#:options opts
#:flags flags)))
file-systems)))
(define (essential-services os)