mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-19 05:57:04 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

file-systems: Validate 'no-diratime flag.

Browse source 
This follows up on commit c077345539, 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.
This commit is contained in:
Tobias Geerinckx-Rice 2023-02-26 01:00:00 +01:00
parent 997b93cc4a
commit 4ef9a5dd5e
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
2 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
gnu/build/file-systems.scm
View file

@ -1123,6 +1123,7 @@ (define (mount-flags->bit-mask flags)
"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)))

2
gnu/system/file-systems.scm
View file

@ -122,7 +122,7 @@ (define invalid-file-system-flags
;; 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."