editSshKey :: SshKeyId -> String -> DigitalOcean (Response SshKey)
editSshKey sshKeyId sshKeyPub = do
  credentials <- creds
  get [uri| /ssh_key/{sshKeyId}/edit{?ssh_key_pub, credentials*} |]
  where ssh_key_pub = sshKeyPub

---- /ssh_key/{sshKeyId}/destroy
editSshKey :: SshKeyId -> String -> DigitalOcean (Response SshKey)
editSshKey sshKeyId sshKeyPub = do
  credentials <- creds
  get [uri| /ssh_key/{sshKeyId}/edit{?ssh_key_pub, credentials*} |]
  where ssh_key_pub = sshKeyPub

---- /ssh_key/{sshKeyId}/destroy
editSshKey sshKeyId sshKeyPub = do
  credentials <- creds
  get [uri| /ssh_key/{sshKeyId}/edit{?ssh_key_pub, credentials*} |]
  where ssh_key_pub = sshKeyPub

---- /ssh_key/{sshKeyId}/destroy