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

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

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

---- /domains/{domainId}/records/new