diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-04-25 10:32:03 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-04-25 12:23:54 +0200 |
| commit | 453c976501bb4d5c4c6b832b7c0c1ec3d493b80f (patch) | |
| tree | 896b1d98fbefdd18e506769a8630f4f76ca25a98 | |
| parent | 4728806185a0d85155ea4db795d1643a8c849d65 (diff) | |
| download | guix-453c976501bb4d5c4c6b832b7c0c1ec3d493b80f.tar.gz | |
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'.
| -rw-r--r-- | gnu/installer/newt/partition.scm | 7 |
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)) |