From d9fc82388647156e6ff9ffbc784d912763db5c73 Mon Sep 17 00:00:00 2001 From: Philippe Pittoli Date: Thu, 7 Nov 2024 17:37:28 +0100 Subject: [PATCH] Don't show error position on wrongly sized password. --- src/App/Page/Authentication.purs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/App/Page/Authentication.purs b/src/App/Page/Authentication.purs index e6d6e8b..168d515 100644 --- a/src/App/Page/Authentication.purs +++ b/src/App/Page/Authentication.purs @@ -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