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

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

---- /droplets/{dropletId}/power_on
powerOffDroplet dropletId = do
  credentials <- creds
  get [uri| /droplets/{dropletId}/power_off{?credentials*} |]

---- /droplets/{dropletId}/power_on