Adapt to OCaml trunk.

ocaml-ppx · Jul 8, 2016 · f70ca1d · f70ca1d
1 parent 93d003f
commit f70ca1d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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 ->