powerCycleDroplet :: DropletId -> DigitalOcean (Response Event)
powerCycleDroplet dropletId = do
  credentials <- creds
  get [uri| /droplets/{dropletId}/power_cycle{?credentials*} |]

---- /droplets/{dropletId}/shutdown
powerCycleDroplet :: DropletId -> DigitalOcean (Response Event)
powerCycleDroplet dropletId = do
  credentials <- creds
  get [uri| /droplets/{dropletId}/power_cycle{?credentials*} |]

---- /droplets/{dropletId}/shutdown
powerCycleDroplet dropletId = do
  credentials <- creds
  get [uri| /droplets/{dropletId}/power_cycle{?credentials*} |]

---- /droplets/{dropletId}/shutdown