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

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

---- /droplets/{dropletId}/disable_backups
enableDropletBackups dropletId = do
  credentials <- creds
  get [uri| /droplets/{dropletId}/enable_backups{?credentials*} |]

---- /droplets/{dropletId}/disable_backups