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

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 1f1ff6a0e71387c2a2e4c60b46c23c3224077c4a
Author: Ludovic Courtès <address@hidden>
Date:   Mon Feb 8 23:33:12 2016 +0100

    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?'.
---
 gnu/system/linux-container.scm |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/gnu/system/linux-container.scm b/gnu/system/linux-container.scm
index c558f45..3acc579 100644
--- a/gnu/system/linux-container.scm
+++ b/gnu/system/linux-container.scm
@@ -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)))