http-put-json ( post-data url -- response json )

Vocabulary

json.http

Inputs

post-data	an object
url	an object

Outputs

response	an object
json	an object

Definition

USING: accessors http.client json kernel ;

IN: json.http

: http-put-json ( post-data url -- response json )
    [ <json-post-data> ] dip "PUT" <json-request>
    swap >>post-data http-request json> ;