getSshKey :: SshKeyId -> DigitalOcean (Response SshKey)
getSshKey sshKeyId = do
  credentials <- creds
  get [uri| /ssh_key/{sshKeyId}{?credentials*} |]

---- /ssh_key/{sshKeyId}/edit
getSshKey :: SshKeyId -> DigitalOcean (Response SshKey)
getSshKey sshKeyId = do
  credentials <- creds
  get [uri| /ssh_key/{sshKeyId}{?credentials*} |]

---- /ssh_key/{sshKeyId}/edit
getSshKey sshKeyId = do
  credentials <- creds
  get [uri| /ssh_key/{sshKeyId}{?credentials*} |]

---- /ssh_key/{sshKeyId}/edit