console/tastsch
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

still works ok

Browse Source
This commit is contained in:
cqc
2023-06-19 19:26:44 -05:00
parent a45395857d
commit 313f999caf
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/dot_of_tast.ml
View File

@ -937,7 +937,9 @@ let merlin_parse str : Gr.t =
Log.info (fun m -> m "merlin_parse..."); Log.info (fun m -> m "merlin_parse...");
let typer = Mpipeline.typer_result pipeline in let typer = Mpipeline.typer_result pipeline in
let typedtree = Mtyper.get_typedtree typer 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 match typedtree with
| `Implementation t -> | `Implementation t ->
Log.info (fun m -> Log.info (fun m ->