addDomain :: T.Text -> IpAddress -> DigitalOcean (Response NewDomain)
addDomain name ipAddress = do
  credentials <- creds
  get [uri| /domains/new{?name, ip_address, credentials*} |]
  where ip_address = ipAddress

---- /domains/{domainId}
addDomain :: T.Text -> IpAddress -> DigitalOcean (Response NewDomain)
addDomain name ipAddress = do
  credentials <- creds
  get [uri| /domains/new{?name, ip_address, credentials*} |]
  where ip_address = ipAddress

---- /domains/{domainId}
addDomain name ipAddress = do
  credentials <- creds
  get [uri| /domains/new{?name, ip_address, credentials*} |]
  where ip_address = ipAddress

---- /domains/{domainId}