From 313f999cafb1cd54b22feec04beccd3af4575b0f Mon Sep 17 00:00:00 2001 From: cqc Date: Mon, 19 Jun 2023 19:26:44 -0500 Subject: [PATCH] still works ok --- lib/dot_of_tast.ml | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lib/dot_of_tast.ml b/lib/dot_of_tast.ml index e9b7fee..86bf43d 100644 --- a/lib/dot_of_tast.ml +++ b/lib/dot_of_tast.ml @@ -937,7 +937,9 @@ let merlin_parse str : Gr.t = Log.info (fun m -> m "merlin_parse..."); let typer = Mpipeline.typer_result pipeline in let typedtree = Mtyper.get_typedtree typer in - let _mbrowse = Mbrowse.of_typedtree typedtree in + let _initial_env = Mtyper.initial_env typer in + let mbrowse = Mbrowse.of_typedtree typedtree in + Log.info (fun m -> m "Mbrowse.print %s" (Mbrowse.print () mbrowse)); match typedtree with | `Implementation t -> Log.info (fun m ->