[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: Fix by Ludovic.
From: |
Andreas Enge |
Subject: |
01/01: Fix by Ludovic. |
Date: |
Sat, 16 Jul 2016 15:47:15 +0000 (UTC) |
andreas pushed a commit to branch wip-hydra
in repository guix.
commit b719fee2473c991cdadb820f58bc3504f7add3bd
Author: Andreas Enge <address@hidden>
Date: Sat Jul 16 17:46:52 2016 +0200
Fix by Ludovic.
---
gnu/system.scm | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/gnu/system.scm b/gnu/system.scm
index a49b3f2..c322676 100644
--- a/gnu/system.scm
+++ b/gnu/system.scm
@@ -208,8 +208,9 @@ as 'needed-for-boot'."
"Return a file system among FILE-SYSTEMS that uses DEVICE, or #f."
(let ((target (string-append "/dev/mapper/" (mapped-device-target device))))
(find (lambda (fs)
- (and (eq? 'device (file-system-title fs))
- (string=? (file-system-device fs) target)))
+ (or (member device (file-system-dependencies fs))
+ (and (eq? 'device (file-system-title fs))
+ (string=? (file-system-device fs) target))))
file-systems)))
(define (operating-system-user-mapped-devices os)