ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-11 05:39:41 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
* gnu/system/linux-container.scm (containerized-operating-system)[user-file-systems]:
Check whether SOURCE is a string before calling 'string-prefix?'.
This commit is contained in:
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 @@ (define user-file-systems
(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)))