installer: Return partitions with crypt password as step result.
* gnu/installer/newt/partition.scm (run-partitioning-page): Do it. Signed-off-by: Mathieu Othacehe <othacehe@gnu.org>
This commit is contained in:
parent
4814ec284f
commit
d77612a91b
@ -795,13 +795,13 @@ by pressing the Exit button.~%~%")))
|
||||
(user-partitions (run-page eligible-devices))
|
||||
(user-partitions-with-pass (prompt-luks-passwords
|
||||
user-partitions))
|
||||
(form (draw-formatting-page user-partitions)))
|
||||
(form (draw-formatting-page user-partitions-with-pass)))
|
||||
;; Make sure the disks are not in use before proceeding to formatting.
|
||||
(free-parted eligible-devices)
|
||||
(format-user-partitions user-partitions-with-pass)
|
||||
(installer-log-line "formatted ~a user partitions"
|
||||
(length user-partitions-with-pass))
|
||||
(installer-log-line "user-partitions: ~a" user-partitions)
|
||||
(installer-log-line "user-partitions: ~a" user-partitions-with-pass)
|
||||
|
||||
(destroy-form-and-pop form)
|
||||
user-partitions))
|
||||
user-partitions-with-pass))
|
||||
|
Loading…
Reference in New Issue
Block a user