addDomainRecord :: DomainId -> NewRecord -> DigitalOcean (Response DomainRecord)
addDomainRecord domainId newRecord = do
  credentials <- creds
  get [uri| /domains/{domainId}/records/new{?newRecord*, credentials*} |]

---- /domains/{domainId}/records/{recordId}
addDomainRecord :: DomainId -> NewRecord -> DigitalOcean (Response DomainRecord)
addDomainRecord domainId newRecord = do
  credentials <- creds
  get [uri| /domains/{domainId}/records/new{?newRecord*, credentials*} |]

---- /domains/{domainId}/records/{recordId}
addDomainRecord domainId newRecord = do
  credentials <- creds
  get [uri| /domains/{domainId}/records/new{?newRecord*, credentials*} |]

---- /domains/{domainId}/records/{recordId}