diff --git a/lib/Parse.ml b/lib/Parse.ml index 06d7128..b4ccc1b 100644 --- a/lib/Parse.ml +++ b/lib/Parse.ml @@ -20,12 +20,12 @@ type mt = Run.matcher_token external create_parser : unit -> Tree_sitter_API.ts_parser = "octs_create_parser_bash" -let ts_parser = create_parser () - let parse_source_string ?src_file contents = + let ts_parser = create_parser () in Tree_sitter_parsing.parse_source_string ?src_file ts_parser contents let parse_source_file src_file = + let ts_parser = create_parser () in Tree_sitter_parsing.parse_source_file ts_parser src_file let extras = [ diff --git a/lib/Parse.mli b/lib/Parse.mli index 67ad730..f39b4d8 100644 --- a/lib/Parse.mli +++ b/lib/Parse.mli @@ -23,9 +23,6 @@ val file : (** Whether to print debugging information. Default: false. *) val debug : bool ref -(** The original tree-sitter parser. *) -val ts_parser : Tree_sitter_bindings.Tree_sitter_API.ts_parser - (** Parse a program into a tree-sitter CST. *) val parse_source_string : ?src_file:string -> string -> Tree_sitter_run.Tree_sitter_parsing.t