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

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

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

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