pass real regexp instead of string

ahrefs · Feb 19, 2025 · f0a6243 · f0a6243
1 parent 3e88fe9
commit f0a6243
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/generator.ml b/lib/generator.ml
@@ -340,7 +340,7 @@ let make_atd_of_schemas state schemas =
     match state.toplevel_types with
     | `All -> schemas
     | `Only l ->
-      let res = List.map (ksprintf Str.regexp "^%s$") l in
+      let res = List.map (ksprintf Str.regexp "%s") l in
       List.filter (fun (name, _) -> List.exists (fun re -> Str.string_match re name 0) res) schemas
   in
   input_toplevel_schemas :=