[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: installer: Fix manual partitioning.
From: |
guix-commits |
Subject: |
01/01: installer: Fix manual partitioning. |
Date: |
Wed, 16 Jan 2019 17:09:20 -0500 (EST) |
civodul pushed a commit to branch wip-newt-installer
in repository guix.
commit e77ee71d92297b4db030effa101d84e4b598e9df
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
create-special-user-partitions
(map disk-partitions disks)))