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

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

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

---- /domains/{domainId}/destroy