httpDomainConfig :: String -> T.Text
httpDomainConfig u =
  case parseURI u of
    Nothing -> error "Unable to find remote url"
    Just a  -> case uriAuthority a of
      Nothing -> error "Unable to parse the url"
      Just b  -> T.pack $ uriRegName b
httpDomainConfig :: String -> T.Text
httpDomainConfig u =
  case parseURI u of
    Nothing -> error "Unable to find remote url"
    Just a  -> case uriAuthority a of
      Nothing -> error "Unable to parse the url"
      Just b  -> T.pack $ uriRegName b
httpDomainConfig u =
  case parseURI u of
    Nothing -> error "Unable to find remote url"
    Just a  -> case uriAuthority a of
      Nothing -> error "Unable to parse the url"
      Just b  -> T.pack $ uriRegName b