vm: Filter out file systems that refer to UUIDs or labels.

* gnu/system/vm.scm (virtualized-operating-system)[user-file-systems]:
Filter out things that refer to file system UUIDs or labels.
This commit is contained in:
Ludovic Courtès 2017-11-30 16:14:12 +01:00
parent 1d0865c19a
commit f00515b483
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 7 additions and 1 deletions

View File

@ -554,7 +554,13 @@ environment with the store shared with the host. MAPPINGS is a list of
(or (string=? target (%store-prefix))
(string=? target "/")
(and (eq? 'device (file-system-title fs))
(string-prefix? "/dev/" source)))))
(string-prefix? "/dev/" source))
;; Labels and UUIDs are necessarily invalid in the VM.
(and (file-system-mount? fs)
(or (eq? 'label (file-system-title fs))
(eq? 'uuid (file-system-title fs))
(uuid? source))))))
(operating-system-file-systems os)))
(define virtual-file-systems