renameDroplet :: DropletId -> String -> DigitalOcean (Response Event)
renameDroplet dropletId name = do
  credentials <- creds
  get [uri| /droplets/{dropletId}/rename{?name, credentials*} |]

---- /droplets/{dropletId}/destroy
renameDroplet :: DropletId -> String -> DigitalOcean (Response Event)
renameDroplet dropletId name = do
  credentials <- creds
  get [uri| /droplets/{dropletId}/rename{?name, credentials*} |]

---- /droplets/{dropletId}/destroy
renameDroplet dropletId name = do
  credentials <- creds
  get [uri| /droplets/{dropletId}/rename{?name, credentials*} |]

---- /droplets/{dropletId}/destroy