Exclude method defs containing underscore char.

dboris · Oct 19, 2024 · 544e72a · 544e72a
1 parent 62b0961
commit 544e72a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/lib.ml b/lib/lib.ml
@@ -253,7 +253,7 @@ let emit_class_method_def class_name ~open_modules =
   Inspect.methods cls
   |> List.filter_map (fun m ->
     let cmd = Sel.get_name (Method.get_name m) in
-    if String.begins_with_char '_' cmd || String.begins_with_char '.' cmd then
+    if String.member "_" cmd || String.begins_with_char '.' cmd then
       Option.none
     else
       Option.some (cmd, Method.get_type_encoding m))