09/10: scripts: system: Do not validate network file systems.

[guix-commits]

apteryx pushed a commit to branch allow-booting-from-btrfs-subvolume
in repository guix.

commit 164b17cd358acd0195b583c56bd25379d1787e59
Author: Maxim Cournoyer <address@hidden>
AuthorDate: Mon Feb 10 15:06:50 2020 -0500

    scripts: system: Do not validate network file systems.
    
    Fixes issue #39551 (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(+)

diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index b0386a1..ac2475c 100644
--- a/guix/scripts/system.scm
+++ b/guix/scripts/system.scm
@@ -566,6 +566,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))