aboutsummaryrefslogtreecommitdiff
path: root/gnu
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2019-01-16 23:08:20 +0100
committerLudovic Courtès <ludo@gnu.org>2019-01-17 14:04:28 +0100
commit8cca59ee1234252f1c3fbd594fb552093be968d8 (patch)
tree8a183528fd61d0658eaeeb10202ab5b236bbb0b0 /gnu
parent85caf5f3239a60039eb4593687eed03ba423e52d (diff)
downloadguix-8cca59ee1234252f1c3fbd594fb552093be968d8.tar
guix-8cca59ee1234252f1c3fbd594fb552093be968d8.tar.gz
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.
Diffstat (limited to 'gnu')
-rw-r--r--gnu/installer/newt/partition.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/gnu/installer/newt/partition.scm b/gnu/installer/newt/partition.scm
index c22e1c0290..d4c91edc66 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)))