Replace -dparsetree sexp output with a pretty-printed AST

Signed-off-by: Nathan Rebours <[email protected]>

CHANGES.md

@@ -21,6 +21,10 @@ details.
   a `ppxlib-pp-ast` executable in a new separate `ppxlib-tools` package
   (#517, @NathanReb)
 
+- Change `-dparsetree` from a sexp output to a pretty printed AST, closer
+  to what the compiler's `-dparsetree` is.
+  (#530, @NathanReb)
+
 0.33.0 (2024-07-22)
 -------------------
 

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