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"