(bind-func fleet_get_state
(let ((url:i8* (zalloc 256)))
(lambda (host:i8* port:i32 unit_name:i8*)
(sprintf url "http://%s:%d/%s/state?unitName=%s" host port FLEET_API_VERSION unit_name)
(json_object_get (ghttp_request_body_as_json (ghttp_perform_GET url))
"states"))))