Remove map_string from API

Its not tested anymore and unused by Yojson
ocaml-community · Jun 4, 2024 · d441f4f · d441f4f
1 parent 1b7083f
commit d441f4f
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 6 deletions.
diff --git a/lib/read.mli b/lib/read.mli
@@ -135,10 +135,6 @@ val finish_string : lexer_state -> Lexing.lexbuf -> string
 val read_string : lexer_state -> Lexing.lexbuf -> string
 val read_ident : lexer_state -> Lexing.lexbuf -> string
 
-val map_string :
-  lexer_state -> (string -> int -> int -> 'a) -> Lexing.lexbuf -> 'a
-(* equivalent to finish_string *)
-
 val map_ident :
   lexer_state -> (string -> int -> int -> 'a) -> Lexing.lexbuf -> 'a
 (* equivalent to read_ident *)

diff --git a/test/test_read.ml b/test/test_read.ml
@@ -78,7 +78,7 @@ let unquoted_from_string () =
     __LOC__ Fixtures.unquoted_value
     (Yojson.Safe.from_string Fixtures.unquoted_json)
 
-let map_ident_and_string () =
+let map_ident () =
   let lexbuf = Lexing.from_string {|{foo:"hello"}|} in
   let lexer_state = Yojson.init_lexer () in
 
@@ -127,5 +127,5 @@ let single_json =
     ("from_string_fail_escaped_char", `Quick, from_string_fail_escaped_char);
     ("from_file", `Quick, from_file);
     ("unquoted_from_string", `Quick, unquoted_from_string);
-    ("map_ident/map_string", `Quick, map_ident_and_string);
+    ("map_ident", `Quick, map_ident);
   ]