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