takeDropletSnapshot :: DropletId -> Maybe T.Text -> DigitalOcean (Response Event)
takeDropletSnapshot dropletId name = do
  credentials <- creds
  get [uri| /droplets/{dropletId}/snapshot{?name, credentials*} |]

---- /droplets/{dropletId}/restore
takeDropletSnapshot :: DropletId -> Maybe T.Text -> DigitalOcean (Response Event)
takeDropletSnapshot dropletId name = do
  credentials <- creds
  get [uri| /droplets/{dropletId}/snapshot{?name, credentials*} |]

---- /droplets/{dropletId}/restore
takeDropletSnapshot dropletId name = do
  credentials <- creds
  get [uri| /droplets/{dropletId}/snapshot{?name, credentials*} |]

---- /droplets/{dropletId}/restore