Commit b9e5ea66 authored by Bruno Guillaume's avatar Bruno Guillaume

add handle wrapper to new functions

parent 685c6d65
...@@ -199,10 +199,15 @@ type t = Grew_graph.G_graph.t ...@@ -199,10 +199,15 @@ type t = Grew_graph.G_graph.t
close_out out_ch close_out out_ch
) () ) ()
let search_pattern ?domain pattern graph = Grew_rule.Rule.match_in_graph ?domain pattern graph let search_pattern ?domain pattern graph =
handle ~name:"Graph.search_pattern" (fun () ->
let node_matching pattern graph matching = Grew_rule.Rule.node_matching pattern graph matching Grew_rule.Rule.match_in_graph ?domain pattern graph
) ()
let node_matching pattern graph matching =
handle ~name:"Graph.node_matching" (fun () ->
Grew_rule.Rule.node_matching pattern graph matching
) ()
end end
(* ==================================================================================================== *) (* ==================================================================================================== *)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment