emailP :: P.Parser ()
emailP = do P.takeWhile1 isNameChar
            P.satisfy $ \c -> c == '@'
            hostnameP

-- | Date in format YYYY-MM-DD
emailP :: P.Parser ()
emailP = do P.takeWhile1 isNameChar
            P.satisfy $ \c -> c == '@'
            hostnameP

-- | Date in format YYYY-MM-DD
emailP = do P.takeWhile1 isNameChar
            P.satisfy $ \c -> c == '@'
            hostnameP

-- | Date in format YYYY-MM-DD