[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/02: vm: system-qemu-image: Fix type error, remove more actual file sy
From: |
guix-commits |
Subject: |
01/02: vm: system-qemu-image: Fix type error, remove more actual file systems. |
Date: |
Wed, 4 Nov 2020 18:08:42 -0500 (EST) |
civodul pushed a commit to branch master
in repository guix.
commit 341f67991da4380485676987e24a3fac01403835
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Wed Nov 4 23:10:53 2020 +0100
vm: system-qemu-image: Fix type error, remove more actual file systems.
* gnu/system/vm.scm (system-qemu-image)[file-systems-to-keep]: Check
whether SOURCE is a string before calling 'string-prefix?'. Remove
UUIDs and file system labels as well.
---
gnu/system/vm.scm | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/gnu/system/vm.scm b/gnu/system/vm.scm
index 80a8618..21d777a 100644
--- a/gnu/system/vm.scm
+++ b/gnu/system/vm.scm
@@ -641,7 +641,10 @@ of the GNU system as described by OS."
(let ((target (file-system-mount-point fs))
(source (file-system-device fs)))
(or (string=? target "/")
- (string-prefix? "/dev/" source))))
+ (and (string? source)
+ (string-prefix? "/dev/" source))
+ (uuid? source)
+ (file-system-label? source))))
(operating-system-file-systems os)))
(define root-uuid