Baguette/dnsmanager-webclient
3
1
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Philippe Pittoli 2024-11-27 12:08:08 +01:00
parent 4f25167ab0
commit ffcc66e240
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/App/Validation/Login.purs
View File

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