diff options
Diffstat (limited to 'gnu/build')
| -rw-r--r-- | gnu/build/file-systems.scm | 13 |
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 |
