(bind-func fleet_print_unit
(lambda (unit:json_t*)
(printf " name: %s\n" (json_string_value (json_object_get unit "name")))
(printf " current state: %s\n" (json_string_value (json_object_get unit "currentState")))
(printf " desired state: %s\n" (json_string_value (json_object_get unit "desiredState")))
void))