me
/
guix
Archived
1
0
Fork 0
Code

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>
master
Josselin Poiret 2022-09-22 15:12:45 +02:00 committed by Mathieu Othacehe
parent 4814ec284f
commit d77612a91b
No known key found for this signature in database
GPG Key ID: 8354763531769CA6
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gnu/installer/newt/partition.scm
View File

@ -795,13 +795,13 @@ by pressing the Exit button.~%~%")))
(user-partitions (run-page eligible-devices)) (user-partitions (run-page eligible-devices))
(user-partitions-with-pass (prompt-luks-passwords (user-partitions-with-pass (prompt-luks-passwords
user-partitions)) 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. ;; Make sure the disks are not in use before proceeding to formatting.
(free-parted eligible-devices) (free-parted eligible-devices)
(format-user-partitions user-partitions-with-pass) (format-user-partitions user-partitions-with-pass)
(installer-log-line "formatted ~a user partitions" (installer-log-line "formatted ~a user partitions"
(length user-partitions-with-pass)) (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) (destroy-form-and-pop form)
user-partitions)) user-partitions-with-pass))