From ffcc66e240e23093d9d7783535a6de4a47f93619 Mon Sep 17 00:00:00 2001 From: Philippe Pittoli Date: Wed, 27 Nov 2024 12:08:08 +0100 Subject: [PATCH] Enable migrated accounts with email-as-login to authenticate themselves. --- src/App/Validation/Login.purs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/App/Validation/Login.purs b/src/App/Validation/Login.purs index 84af17e..bc47746 100644 --- a/src/App/Validation/Login.purs +++ b/src/App/Validation/Login.purs @@ -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