me
/
guix
Archived
1
0
Fork 0
Code

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
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 @@ 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)))

2
gnu/system/file-systems.scm
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."