Replace -dparsetree sexp output with a pretty-printed AST

Signed-off-by: Nathan Rebours <[email protected]>
ocaml-ppx · Sep 26, 2024 · 65146ca · 65146ca
1 parent ac7fcfc
commit 65146ca
Show file tree

Hide file tree

Showing 2 changed files with 147 additions and 1,115 deletions.
diff --git a/src/driver.ml b/src/driver.ml
@@ -1154,8 +1154,8 @@ let process_file (kind : Kind.t) fn ~input_name ~relocate ~output_mode
           let ppf = Stdlib.Format.formatter_of_out_channel oc in
           let ast = add_cookies ast in
           (match ast with
-          | Intf ast -> Sexp.pp_hum ppf (Ast_traverse.sexp_of#signature ast)
-          | Impl ast -> Sexp.pp_hum ppf (Ast_traverse.sexp_of#structure ast));
+          | Intf ast -> Pp_ast.signature ppf ast
+          | Impl ast -> Pp_ast.structure ppf ast);
           Stdlib.Format.pp_print_newline ppf ())
   | Reconcile mode ->
       Reconcile.reconcile !replacements