summaryrefslogtreecommitdiff
path: root/gnu/build/file-systems.scm
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/build/file-systems.scm')
-rw-r--r--gnu/build/file-systems.scm13
1 files changed, 6 insertions, 7 deletions
diff --git a/gnu/build/file-systems.scm b/gnu/build/file-systems.scm
index 33b035aa967..72d7f5f2601 100644
--- a/gnu/build/file-systems.scm
+++ b/gnu/build/file-systems.scm
@@ -1220,16 +1220,15 @@ file name or an nfs-root containing ':/')."
1220 (sleep 1) 1220 (sleep 1)
1221 (loop (+ 1 count)))))))) 1221 (loop (+ 1 count))))))))
1222 1222
1223 (define (device-exists? device)
1224 (and (file-exists? device)
1225 device))
1226
1227 (match spec 1223 (match spec
1228 ((? string?) 1224 ((? string?)
1229 (if (string-prefix? "/dev/" spec) 1225 (if (or (string-contains spec ":/") ;nfs
1226 (and (>= (string-length spec) 2)
1227 (equal? (string-take spec 2) "//")) ;cifs
1228 (string=? spec "none"))
1229 spec ; do not resolve NFS / CIFS / tmpfs devices
1230 ;; Nothing to do, but wait until SPEC shows up. 1230 ;; Nothing to do, but wait until SPEC shows up.
1231 (resolve device-exists? spec identity) 1231 (resolve identity spec identity)))
1232 spec)) ; do not resolve NFS / CIFS / tmpfs devices
1233 ((? file-system-label?) 1232 ((? file-system-label?)
1234 ;; Resolve the label. 1233 ;; Resolve the label.
1235 (resolve find-partition-by-label 1234 (resolve find-partition-by-label