diff options
| author | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2020-02-10 15:06:50 -0500 |
|---|---|---|
| committer | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2020-02-18 12:20:17 -0500 |
| commit | adbdf188c28c503a9c875b793bc88548d3cd702f (patch) | |
| tree | e0448f2080f3f3f1537f781a4c3341c9f94ff4f2 | |
| parent | a0d19554cb4c7809d34fd05578bb85c92ce1bf4d (diff) | |
| download | patches-adbdf188c28c503a9c875b793bc88548d3cd702f.tar patches-adbdf188c28c503a9c875b793bc88548d3cd702f.tar.gz | |
scripts: system: Do not validate network file systems.
Fixes <https://bugs.gnu.org/39551>.
* guix/scripts/system.scm (check-file-system-availability): Ignore file
systems of the NFS type.
| -rw-r--r-- | guix/scripts/system.scm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm index e69a3b6c97..b5e3a5630e 100644 --- a/guix/scripts/system.scm +++ b/guix/scripts/system.scm @@ -571,6 +571,8 @@ any, are available. Raise an error if they're not." (and (file-system-mount? fs) (not (member (file-system-type fs) %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))))) file-systems)) |