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