-- | Simple hostname pattern
hostnameP :: P.Parser ()
hostnameP = do P.takeWhile1 isHostChar
               P.many1 label
               return ()
  where label = do P.satisfy $ \c -> c == '.'
                   P.takeWhile1 isHostChar

-- | Simple email address pattern
hostnameP :: P.Parser ()
hostnameP = do P.takeWhile1 isHostChar
               P.many1 label
               return ()
  where label = do P.satisfy $ \c -> c == '.'
                   P.takeWhile1 isHostChar

-- | Simple email address pattern
hostnameP = do P.takeWhile1 isHostChar
               P.many1 label
               return ()
  where label = do P.satisfy $ \c -> c == '.'
                   P.takeWhile1 isHostChar

-- | Simple email address pattern