github-put-success? ( url -- json )

Vocabulary

github

Inputs

url

an object

Outputs

json

an object

Definition

USING: accessors http.client kernel ;

IN: github

: github-put-success? ( url -- json )
    f swap >github-url http-put* drop code>> 204 = ;