summaryrefslogtreecommitdiff
path: root/gnu/installer
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2019-04-25 10:32:03 +0200
committerLudovic Courtès <ludo@gnu.org>2019-04-25 12:23:54 +0200
commit453c976501bb4d5c4c6b832b7c0c1ec3d493b80f (patch)
tree896b1d98fbefdd18e506769a8630f4f76ca25a98 /gnu/installer
parent4728806185a0d85155ea4db795d1643a8c849d65 (diff)
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'.
Diffstat (limited to 'gnu/installer')
-rw-r--r--gnu/installer/newt/partition.scm7
1 files changed, 6 insertions, 1 deletions
diff --git a/gnu/installer/newt/partition.scm b/gnu/installer/newt/partition.scm
index 373aedd24c..5eaba7aea9 100644
--- a/gnu/installer/newt/partition.scm
+++ b/gnu/installer/newt/partition.scm
@@ -152,6 +152,10 @@ USER-PARTITIONS list. Return this list with password fields filled-in."
(file-name (user-partition-file-name user-part))
(password-page
(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
(format #f (G_ "Please enter the password for the \
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
(format #f (G_ "Please confirm the password for the \
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
(let loop ()
(let ((password (password-page))