-- | Characters in the name part of an email address
isNameChar :: Char -> Bool
isNameChar c = isDigit c || isAlpha c || c `elem` ("_-." :: String)
isNameChar :: Char -> Bool
isNameChar c = isDigit c || isAlpha c || c `elem` ("_-." :: String)
isNameChar c = isDigit c || isAlpha c || c `elem` ("_-." :: String)