diff --git a/rewriter.ml b/rewriter.ml index 565e35b..6de0d16 100644 --- a/rewriter.ml +++ b/rewriter.ml @@ -92,13 +92,13 @@ let () = | `Struct -> let pstr = Parse.implementation lexer in let pstr = Pparse.apply_rewriters (* ~restore:true *) ~tool_name:!tool_name - Config.ast_impl_magic_number pstr in + Pparse.Structure pstr in Pprintast.structure fmt pstr; Format.pp_print_newline fmt () | `Sig -> let psig = Parse.interface lexer in let psig = Pparse.apply_rewriters (* ~restore:true *) ~tool_name:!tool_name - Config.ast_intf_magic_number psig in + Pparse.Signature psig in Pprintast.signature fmt psig; Format.pp_print_newline fmt ()) with exn ->