me
/
guix
Archived
1
0
Fork 0
Code

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
gnu/system/linux-container.scm
View File

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