Enable migrated accounts with email-as-login to authenticate themselves.

This commit is contained in:
Philippe Pittoli 2024-11-27 12:08:08 +01:00
parent 4f25167ab0
commit ffcc66e240

View File

@ -34,7 +34,7 @@ login_parser :: G.Parser LoginParsingError String
login_parser = do
input <- G.current_input
_ <- (alpha <|> digit) G.<:> \_ -> CannotParse
_ <- A.many (alpha <|> digit <|> G.char ' ' <|> G.char '_' <|> G.char '\'' <|> G.char '-')
_ <- A.many (alpha <|> digit <|> G.char ' ' <|> G.char '_' <|> G.char '\'' <|> G.char '-' <|> G.char '@' <|> G.char '.' <|> G.char '+')
_ <- SomeParsers.eof G.<:> \_ -> CannotEntirelyParse
let last_char_correct = G.parse_last_char input.string (alpha <|> digit)
pos <- G.current_position