[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/02: Fix by Ludovic.
From: |
Andreas Enge |
Subject: |
01/02: Fix by Ludovic. |
Date: |
Sun, 17 Jul 2016 12:02:15 +0000 (UTC) |
andreas pushed a commit to branch wip-hydra
in repository guix.
commit 3977d55662c5c1b017e0e6df2e3fdbeab6cb1c09
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)