04/05: file-systems: Support the 'no-diratime' mount flag.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit c0773455397746b10194bc14c7cef144f4095b65
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Thu Oct 20 21:20:36 2022 +0200

    file-systems: Support the 'no-diratime' mount flag.
    
    * gnu/build/file-systems.scm (mount-flags->bit-mask): Handle 'no-diratime'.
    * doc/guix.texi (File Systems): Document it.
---
 doc/guix.texi              | 1 +
 gnu/build/file-systems.scm | 2 ++
 2 files changed, 3 insertions(+)

diff --git a/doc/guix.texi b/doc/guix.texi
index fd8b19fe46..5c41f21d45 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -16546,6 +16546,7 @@ This is a list of symbols denoting mount flags.  
Recognized flags
 include @code{read-only}, @code{bind-mount}, @code{no-dev} (disallow
 access to special files), @code{no-suid} (ignore setuid and setgid
 bits), @code{no-atime} (do not update file access times),
+@code{no-diratime} (likewise for directories only),
 @code{strict-atime} (update file access time), @code{lazy-time} (only
 update time on the in-memory version of the file inode),
 @code{no-exec} (disallow program execution), and @code{shared} (make the
diff --git a/gnu/build/file-systems.scm b/gnu/build/file-systems.scm
index 0ed5dc5671..0d7ff99f17 100644
--- a/gnu/build/file-systems.scm
+++ b/gnu/build/file-systems.scm
@@ -1132,6 +1132,8 @@ corresponds to the symbols listed in FLAGS."
        (logior MS_NOEXEC (loop rest)))
       (('no-atime rest ...)
        (logior MS_NOATIME (loop rest)))
+      (('no-diratime rest ...)
+       (logior MS_NODIRATIME (loop rest)))
       (('strict-atime rest ...)
        (logior MS_STRICTATIME (loop rest)))
       (('lazy-time rest ...)