mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 05:18:07 -05:00
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.
This commit is contained in:
parent
85caf5f323
commit
8cca59ee12
1 changed files with 1 additions and 1 deletions
|
@ -745,7 +745,7 @@ (define (run-page devices)
|
||||||
(run-disk-page (list disk) user-partitions
|
(run-disk-page (list disk) user-partitions
|
||||||
#:guided? #t)))
|
#:guided? #t)))
|
||||||
((eq? method 'manual)
|
((eq? method 'manual)
|
||||||
(let* ((disks (map disk-new devices))
|
(let* ((disks (filter-map disk-new devices))
|
||||||
(user-partitions (append-map
|
(user-partitions (append-map
|
||||||
create-special-user-partitions
|
create-special-user-partitions
|
||||||
(map disk-partitions disks)))
|
(map disk-partitions disks)))
|
||||||
|
|
Loading…
Reference in a new issue