Fix version 1.9.1 (ocaml)

src_ocaml/grewpy.ml

@@ -158,7 +158,7 @@ let run_command request =
           let corpus = Global.corpus_get corpus_index in
           let matches = Array.fold_left
               (fun acc (id,graph) ->
-                 let matching_list = Matching.search_pattern_in_graph ~config pattern graph in
+                 let matching_list = Graph.search_pattern ~config pattern graph in
                  (List.map
                     (fun m -> `Assoc [
                          ("sent_id", `String id);
@@ -187,7 +187,7 @@ let run_command request =
           let corpus = Global.corpus_get corpus_index in
           let count = Array.fold_left
               (fun acc (id,graph) ->
-                 let matching_list = Matching.search_pattern_in_graph ~config pattern graph in
+                 let matching_list = Graph.search_pattern ~config pattern graph in
                  (List.length matching_list) + acc
               ) 0 corpus in
           Yojson.Basic.to_string
@@ -206,7 +206,7 @@ let run_command request =
         | Some graph, Some string_pattern ->
           let gr = Graph.of_json_python ~config (Yojson.Basic.from_string graph) in
           let pattern = Pattern.parse ~config string_pattern in
-          let matching_list = Matching.search_pattern_in_graph ~config pattern gr in
+          let matching_list = Graph.search_pattern ~config pattern gr in
           let json_list = List.map (fun m -> Matching.to_json pattern gr m) matching_list in
           Yojson.Basic.to_string (`Assoc [("status", `String "OK"); ("data", `List (json_list))])
         | _ -> json_error "incomplete 'search' command"