still works ok

2023-06-19 19:26:44 -05:00
parent a45395857d
commit 313f999caf
1 changed files with 3 additions and 1 deletions
--- 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 ->