let location_of_class_element = function
  | Class_attribute a -> Some a.att_value.val_loc
  | Class_method m -> Some m.met_value.val_loc
  | Class_comment _ -> None