~ruther/guix-local: linux-container: Accept file systems with a UUID 'source'.

1f1ff6a0e71387c2a2e4c60b46c23c3224077c4a — Ludovic Courtès 10 years ago 6eb4390

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?'.

patch browse .tar.gz

1 files changed, 2 insertions(+), 1 deletions(-)

M gnu/system/linux-container.scm

M gnu/system/linux-container.scm => gnu/system/linux-container.scm +2 -1

@@ 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)))