12 lines
219 B
OCaml
12 lines
219 B
OCaml
open Ppxlib
|
|
open Log_js
|
|
|
|
let log_info pp exp =
|
|
Log.info (fun m -> m "ppx_graph: %a" pp exp);
|
|
exp
|
|
|
|
let init () =
|
|
Driver.register_transformation
|
|
~impl:(log_info Ocaml_common.Pprintast.structure)
|
|
"ppx_graph"
|