isHostChar :: Char -> Bool
isHostChar c = isDigit c || isAlpha c || c == '-'
isHostChar :: Char -> Bool
isHostChar c = isDigit c || isAlpha c || c == '-'
isHostChar c = isDigit c || isAlpha c || c == '-'