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

installer: Fix handling of user password mismatches. 

Previously, if we had a password mismatch, the 'password' field would
end up containing a <user> record instead of the actual password.

* gnu/installer/newt/user.scm (confirm-password): Make TRY-AGAIN
optional and adjust docstring.
(run-user-add-page): Move 'confirm-password' call one level higher.
This commit is contained in:
Ludovic Courtès 2019-04-28 22:42:21 +02:00
parent 0e8e963d73
commit ada4aeb068
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 13 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
gnu/installer/newt/user.scm
View File

@ -115,25 +115,23 @@ REAL-NAME, and HOME-DIRECTORY as the initial values in the form."
(begin (begin
(error-page) (error-page)
(run-user-add-page)) (run-user-add-page))
(user (let ((password (confirm-password password)))
(name name) (if password
(real-name real-name) (user
(home-directory home-directory) (name name)
(password (real-name real-name)
(confirm-password password (home-directory home-directory)
(lambda () (password password))
(run-user-add-page (run-user-add-page #:name name
#:name name #:real-name real-name
#:real-name real-name #:home-directory
#:home-directory home-directory)))))))))
home-directory)))))))))))
(lambda () (lambda ()
(destroy-form-and-pop form))))))) (destroy-form-and-pop form)))))))
(define (confirm-password password try-again) (define* (confirm-password password #:optional (try-again (const #f)))
"Ask the user to confirm PASSWORD, a possibly empty string. Call TRY-AGAIN, "Ask the user to confirm PASSWORD, a possibly empty string. Call TRY-AGAIN,
a thunk, if the confirmation doesn't match PASSWORD. Return the confirmed a thunk, if the confirmation doesn't match PASSWORD, and return its result."
password."
(define confirmation (define confirmation
(run-input-page (G_ "Please confirm the password.") (run-input-page (G_ "Please confirm the password.")
(G_ "Password confirmation required") (G_ "Password confirmation required")