me
/
guix
Archived
1
0
Fork 0

linux-container: Accept file systems with a UUID 'source'.

* gnu/system/linux-container.scm (containerized-operating-system)[user-file-systems]:
Check whether SOURCE is a string before calling 'string-prefix?'.
master
Ludovic Courtès 2016-02-08 23:33:12 +01:00
parent 6eb439070a
commit 1f1ff6a0e7
1 changed files with 2 additions and 1 deletions

View File

@ -57,7 +57,8 @@ containerized OS."
(source (file-system-device fs)))
(or (string=? target (%store-prefix))
(string=? target "/")
(string-prefix? "/dev/" source)
(and (string? source)
(string-prefix? "/dev/" source))
(string-prefix? "/dev" target)
(string-prefix? "/sys" target))))
(operating-system-file-systems os)))