let update_group_name gnum name = do_something_group (fun g -> g.name := name) (fun () -> make_group gnum ~name:name) gnum