ligo/src/compiler/node_compiler_main.ml
2016-09-08 19:29:33 -07:00

21 lines
902 B
OCaml

(**************************************************************************)
(* *)
(* Copyright (c) 2014 - 2016. *)
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
(* *)
(* All rights reserved. No warranty, explicit or implicit, provided. *)
(* *)
(**************************************************************************)
let compiler_name = "tezos-protocol-compiler"
let () =
if Filename.basename Sys.argv.(0) = compiler_name then begin
try
Tezos_compiler.main ();
Pervasives.exit 0
with exn ->
Format.eprintf "%a\n%!" Opterrors.report_error exn;
Pervasives.exit 1
end