Don't show error position on wrongly sized password.

caa
Philippe Pittoli 2024-11-07 17:37:28 +01:00
parent 44f696e170
commit d9fc823886
1 changed files with 3 additions and 2 deletions

View File

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