mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-02-08 03:59:40 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

scripts: system: Do not validate network file systems.

Browse source 
Fixes <https://bugs.gnu.org/39551>.

* guix/scripts/system.scm (check-file-system-availability): Ignore file
systems of the NFS type.
This commit is contained in:
Maxim Cournoyer 2020-02-10 15:06:50 -05:00
parent a0d19554cb
commit adbdf188c2
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
guix/scripts/system.scm
View file

@ -571,6 +571,8 @@ any, are available. Raise an error if they're not."
(and (file-system-mount? fs) (and (file-system-mount? fs)
(not (member (file-system-type fs) (not (member (file-system-type fs)
%pseudo-file-system-types)) %pseudo-file-system-types))
;; Don't try to validate network file systems.
(not (string-prefix? "nfs" (file-system-type fs)))
(not (memq 'bind-mount (file-system-flags fs))))) (not (memq 'bind-mount (file-system-flags fs)))))
file-systems)) file-systems))