[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

68/68: installer: Fix manual partitioning.

From: guix-commits
Subject: 68/68: installer: Fix manual partitioning.
Date: Thu, 17 Jan 2019 08:05:22 -0500 (EST)

civodul pushed a commit to branch master
in repository guix.

commit 8cca59ee1234252f1c3fbd594fb552093be968d8
Author: Ludovic Courtès <address@hidden>
Date:   Wed Jan 16 23:08:20 2019 +0100

    installer: Fix manual partitioning.
    * gnu/installer/newt/partition.scm (run-partioning-page): When METHOD is
    'manual, use 'filter-map' on DEVICES, not 'map', since 'disk-new' can
    return #f.
 gnu/installer/newt/partition.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gnu/installer/newt/partition.scm b/gnu/installer/newt/partition.scm
index c22e1c0..d4c91ed 100644
--- a/gnu/installer/newt/partition.scm
+++ b/gnu/installer/newt/partition.scm
@@ -745,7 +745,7 @@ by pressing the Exit button.~%~%")))
            (run-disk-page (list disk) user-partitions
                           #:guided? #t)))
        ((eq? method 'manual)
-         (let* ((disks (map disk-new devices))
+         (let* ((disks (filter-map disk-new devices))
                 (user-partitions (append-map
                                   (map disk-partitions disks)))

reply via email to

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