Add option to dump monomorphised ast before (re-)typechecking

1 files changed, 3 insertions, 0 deletions

diff --git a/src/process_file.ml b/src/process_file.ml
index 1c133ce8..f445f900 100644
--- a/src/process_file.ml
+++ b/src/process_file.ml
@@ -108,8 +108,11 @@ let check_ast (defs : unit Ast.defs) : Type_check.tannot Ast.defs * Type_check.E
   let () = if !opt_just_check then exit 0 else () in
   (ast, env)
 
+let opt_ddump_raw_mono_ast = ref false
+
 let monomorphise_ast locs ast =
   let ast = Monomorphise.split_defs locs ast in
+  let () = if !opt_ddump_raw_mono_ast then Pretty_print.pp_defs stdout ast else () in
   let ienv = Type_check.Env.no_casts Type_check.initial_env in
   Type_check.check ienv ast