file-systems: Support the 'remount' mount flag.

This allows remounting file systems which are already mounted by
the initrd with custom mount options (e.g. /proc with hidepid=2).

* gnu/build/file-systems.scm (mount-flags->bit-mask): Map 'remount
to MS_REMOUNT.
* gnu/system/file-systems.scm (invalid-file-system-flags): Add
'remount to the list of KNOWN-FLAGS.
* doc/guix.texi (File Systems): Document it.

Fixes: guix/guix#3849
Change-Id: I0ab116a5b4f7bd201e955ecf022e260c63828dc4
Signed-off-by: Ludovic Courtès <ludo@gnu.org>

2 files changed, 3 insertions, 1 deletions

diff --git a/gnu/build/file-systems.scm b/gnu/build/file-systems.scm
index 1ff954583a7..d25b798b117 100644
--- a/gnu/build/file-systems.scm
+++ b/gnu/build/file-systems.scm
@@ -1312,6 +1312,8 @@ corresponds to the symbols listed in FLAGS."
        (logior MS_STRICTATIME (loop rest)))
       (('lazy-time rest ...)
        (logior MS_LAZYTIME (loop rest)))
+      (('remount rest ...)
+       (logior MS_REMOUNT (loop rest)))
       (('shared rest ...)
        (loop rest))
       (()
diff --git a/gnu/system/file-systems.scm b/gnu/system/file-systems.scm
index f4086dd62b7..f83b67c4770 100644
--- a/gnu/system/file-systems.scm
+++ b/gnu/system/file-systems.scm
@@ -123,7 +123,7 @@
     ;; Note: Keep in sync with 'mount-flags->bit-mask'.
     (let ((known-flags '(read-only
                          bind-mount no-suid no-dev no-exec
-                         no-atime no-diratime strict-atime lazy-time
+                         no-atime no-diratime strict-atime lazy-time remount
                          shared)))
       (lambda (flags)
         "Return the subset of FLAGS that is invalid."