guix-commits
[Top][All Lists]
Advanced

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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]