branch master updated: file-systems: Validate 'no-diratime flag.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

nckx pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 4ef9a5dd5e file-systems: Validate 'no-diratime flag.
4ef9a5dd5e is described below

commit 4ef9a5dd5ec07d2cf4326b65d44a9227d184a56e
Author: Tobias Geerinckx-Rice <me@tobias.gr>
AuthorDate: Sun Feb 26 01:00:00 2023 +0100

    file-systems: Validate 'no-diratime flag.
    
    This follows up on commit c0773455397746b10194bc14c7cef144f4095b65, and
    adds a comment to avoid this in future.
    
    * gnu/system/file-systems.scm (invalid-file-system-flags):
    Add 'no-diratime to the list of KNOWN-FLAGS.
---
 gnu/build/file-systems.scm  | 1 +
 gnu/system/file-systems.scm | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/gnu/build/file-systems.scm b/gnu/build/file-systems.scm
index 66ca22d6ea..36a59f5f5c 100644
--- a/gnu/build/file-systems.scm
+++ b/gnu/build/file-systems.scm
@@ -1123,6 +1123,7 @@ an exception in such cases but perform the nearest sane 
action."
   "Return the number suitable for the 'flags' argument of 'mount' that
 corresponds to the symbols listed in FLAGS."
   (let loop ((flags flags))
+    ;; Note: Keep in sync with ‘invalid-file-system-flags’.
     (match flags
       (('read-only rest ...)
        (logior MS_RDONLY (loop rest)))
diff --git a/gnu/system/file-systems.scm b/gnu/system/file-systems.scm
index f2eb2e0837..85b00a4a09 100644
--- a/gnu/system/file-systems.scm
+++ b/gnu/system/file-systems.scm
@@ -122,7 +122,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 strict-atime lazy-time
+                         no-atime no-diratime strict-atime lazy-time
                          shared)))
       (lambda (flags)
         "Return the subset of FLAGS that is invalid."