ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

installer: Fix manual partitioning.

Browse source 
* 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:
Ludovic Courtès 2019-01-16 23:08:20 +01:00
parent 85caf5f323
commit 8cca59ee12
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
gnu/installer/newt/partition.scm
View file

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