Baguette/dnsmanager-webclient
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Don't show error position on wrongly sized password.

Browse source
This commit is contained in:
Philippe Pittoli 2024-11-07 17:37:28 +01:00
parent 44f696e170
commit d9fc823886
1 changed files with 3 additions and 2 deletions

5
src/App/Page/Authentication.purs
View file

@ -185,8 +185,9 @@ render { current_tab, authenticationForm, passwordRecoveryForm, newPasswordForm,
show_error_password :: P.Error -> String show_error_password :: P.Error -> String
show_error_password = case _ of show_error_password = case _ of
P.ParsingError {error, position} -> --P.ParsingError {error, position} ->
"position " <> show position <> " " <> maybe "" string_error_password error -- "position " <> show position <> " " <> maybe "" string_error_password error
P.ParsingError {error} -> maybe "" string_error_password error
string_error_password :: P.PasswordParsingError -> String string_error_password :: P.PasswordParsingError -> String
string_error_password = case _ of string_error_password = case _ of