summaryrefslogtreecommitdiff
path: root/gnu/system
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/system')
-rw-r--r--gnu/system/file-systems.scm4
1 files changed, 3 insertions, 1 deletions
diff --git a/gnu/system/file-systems.scm b/gnu/system/file-systems.scm
index f8f42762832..464b76a2ca8 100644
--- a/gnu/system/file-systems.scm
+++ b/gnu/system/file-systems.scm
@@ -4,6 +4,7 @@
4;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net> 4;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net>
5;;; Copyright © 2020, 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com> 5;;; Copyright © 2020, 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com>
6;;; Copyright © 2021 Tobias Geerinckx-Rice <me@tobias.gr> 6;;; Copyright © 2021 Tobias Geerinckx-Rice <me@tobias.gr>
7;;; Copyright © 2022 Oleg Pykhalov <go.wigust@gmail.com>
7;;; 8;;;
8;;; This file is part of GNU Guix. 9;;; This file is part of GNU Guix.
9;;; 10;;;
@@ -121,7 +122,8 @@
121 ;; Note: Keep in sync with 'mount-flags->bit-mask'. 122 ;; Note: Keep in sync with 'mount-flags->bit-mask'.
122 (let ((known-flags '(read-only 123 (let ((known-flags '(read-only
123 bind-mount no-suid no-dev no-exec 124 bind-mount no-suid no-dev no-exec
124 no-atime strict-atime lazy-time))) 125 no-atime strict-atime lazy-time
126 shared)))
125 (lambda (flags) 127 (lambda (flags)
126 "Return the subset of FLAGS that is invalid." 128 "Return the subset of FLAGS that is invalid."
127 (remove (cut memq <> known-flags) flags)))) 129 (remove (cut memq <> known-flags) flags))))