Enable migrated accounts with email-as-login to authenticate themselves.
This commit is contained in:
		
							parent
							
								
									4f25167ab0
								
							
						
					
					
						commit
						ffcc66e240
					
				
					 1 changed files with 1 additions and 1 deletions
				
			
		| 
						 | 
				
			
			@ -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
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
	Add table
		
		Reference in a new issue