package nx

  1. Overview
  2. Docs

Source file nx_top.ml

1
2
3
4
5
6
7
8
9
10
let install_printer (ident : string) =
  let lexbuf = Lexing.from_string ident in
  try
    let longident = Parse.longident lexbuf in
    Topdirs.dir_install_printer Format.err_formatter longident
  with ex ->
    Format.fprintf Format.err_formatter "Failed to install printer %s: %s@."
      ident (Printexc.to_string ex)

let () = install_printer "Nx.pp_data"