addSshKey :: String -> String -> DigitalOcean (Response NewSshKey)
addSshKey name sshKeyPub = do
  credentials <- creds
  get [uri| /ssh_keys/new{?name, ssh_key_pub, credentials*} |]
  where ssh_key_pub = sshKeyPub

---- /ssh_key/{sshKeyId}
addSshKey :: String -> String -> DigitalOcean (Response NewSshKey)
addSshKey name sshKeyPub = do
  credentials <- creds
  get [uri| /ssh_keys/new{?name, ssh_key_pub, credentials*} |]
  where ssh_key_pub = sshKeyPub

---- /ssh_key/{sshKeyId}
addSshKey name sshKeyPub = do
  credentials <- creds
  get [uri| /ssh_keys/new{?name, ssh_key_pub, credentials*} |]
  where ssh_key_pub = sshKeyPub

---- /ssh_key/{sshKeyId}