From adbdf188c28c503a9c875b793bc88548d3cd702f Mon Sep 17 00:00:00 2001
From: Maxim Cournoyer <maxim.cournoyer@gmail.com>
Date: Mon, 10 Feb 2020 15:06:50 -0500
Subject: 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.
---
 guix/scripts/system.scm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'guix')

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))
 
-- 
cgit v1.2.3