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