nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

installer: Use FLAG-PASSWORD for the encryption passphrase confirmation. 

* gnu/installer/newt/partition.scm (prompt-luks-passwords)
<password-confirm-page>: Pass #:input-flags to 'run-input-page'.
This commit is contained in:
Ludovic Courtès 2019-04-25 10:32:03 +02:00
parent 4728806185
commit 453c976501
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -152,6 +152,10 @@ USER-PARTITIONS list. Return this list with password fields filled-in."
(file-name (user-partition-file-name user-part)) (file-name (user-partition-file-name user-part))
(password-page (password-page
(lambda () (lambda ()
;; Note: Don't use FLAG-PASSWORD here because this is the
;; first bit of text that the user types in, so it's
;; probably safer if they can see that the keyboard layout
;; they chose is in effect.
(run-input-page (run-input-page
(format #f (G_ "Please enter the password for the \ (format #f (G_ "Please enter the password for the \
encryption of partition ~a (label: ~a).") file-name crypt-label) encryption of partition ~a (label: ~a).") file-name crypt-label)
@ -161,7 +165,8 @@ encryption of partition ~a (label: ~a).") file-name crypt-label)
(run-input-page (run-input-page
(format #f (G_ "Please confirm the password for the \ (format #f (G_ "Please confirm the password for the \
encryption of partition ~a (label: ~a).") file-name crypt-label) encryption of partition ~a (label: ~a).") file-name crypt-label)
(G_ "Password confirmation required"))))) (G_ "Password confirmation required")
#:input-flags FLAG-PASSWORD))))
(if crypt-label (if crypt-label
(let loop () (let loop ()
(let ((password (password-page)) (let ((password (password-page))