me
/
guix
Archived
1
0
Fork 0

file-systems: Validate 'no-diratime flag.

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.
master
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

View File

@ -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 "Return the number suitable for the 'flags' argument of 'mount' that
corresponds to the symbols listed in FLAGS." corresponds to the symbols listed in FLAGS."
(let loop ((flags flags)) (let loop ((flags flags))
;; Note: Keep in sync with invalid-file-system-flags.
(match flags (match flags
(('read-only rest ...) (('read-only rest ...)
(logior MS_RDONLY (loop rest))) (logior MS_RDONLY (loop rest)))

View File

@ -122,7 +122,7 @@
;; Note: Keep in sync with 'mount-flags->bit-mask'. ;; Note: Keep in sync with 'mount-flags->bit-mask'.
(let ((known-flags '(read-only (let ((known-flags '(read-only
bind-mount no-suid no-dev no-exec bind-mount no-suid no-dev no-exec
no-atime strict-atime lazy-time no-atime no-diratime strict-atime lazy-time
shared))) shared)))
(lambda (flags) (lambda (flags)
"Return the subset of FLAGS that is invalid." "Return the subset of FLAGS that is invalid."