(bind-func ghttp_perform_PUT_json
(lambda (uri:i8* body:json_t*)
(let ((bodystr (json_dumps body 0)))
(if (null? bodystr)
(begin (println "Error dumping json to string: " body)
null)
(ghttp_perform_request_with_setup_fn uri
(lambda (request:ghttp_request*)
(ghttp_set_type request ghttp_type_put)
(ghttp_set_content_type_json request)
(ghttp_set_body request bodystr (convert (strlen bodystr) i32))
void))))))