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

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

---- /domains/{domainId}/records/{recordId}/destroy
getDomainRecord domainId recordId = do
  credentials <- creds
  get [uri| /domains/{domainId}/records/{recordId}{?credentials*} |]

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