github-put-payload-success? ( post-data url -- json )

Vocabulary

github

Inputs

post-data	an object
url	an object

Outputs

json

an object

Definition

USING: accessors http.client json kernel ;

IN: github

: github-put-payload-success? ( post-data url -- json )
    [ ?>json ] [ >github-url ] bi* http-put* drop code>> 204 = ;