getSshKeys :: DigitalOcean (Response [SshKeyInfo])
getSshKeys = do
  credentials <- creds
  get [uri| /ssh_keys{?credentials*} |]

---- /ssh_keys/new
getSshKeys :: DigitalOcean (Response [SshKeyInfo])
getSshKeys = do
  credentials <- creds
  get [uri| /ssh_keys{?credentials*} |]

---- /ssh_keys/new
getSshKeys = do
  credentials <- creds
  get [uri| /ssh_keys{?credentials*} |]

---- /ssh_keys/new