From 11dc538c9c38fbf139ec538bb7488c78408909bc Mon Sep 17 00:00:00 2001
From: Bruno Guillaume <Bruno.Guillaume@loria.fr>
Date: Mon, 3 Oct 2022 21:59:00 +0200
Subject: [PATCH] Fix version 1.9.1 (ocaml)
---
src_ocaml/grewpy.ml | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/src_ocaml/grewpy.ml b/src_ocaml/grewpy.ml
index 1c9fadb..49f59fc 100644
--- a/src_ocaml/grewpy.ml
+++ b/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"
--
GitLab