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

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 453c976501bb4d5c4c6b832b7c0c1ec3d493b80f
Author: Ludovic Courtès <address@hidden>
Date:   Thu Apr 25 10:32:03 2019 +0200

    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'.
---
 gnu/installer/newt/partition.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/gnu/installer/newt/partition.scm b/gnu/installer/newt/partition.scm
index 373aedd..5eaba7a 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))