Compiler: small file rename

Author: hhugo

compiler/bin-js_of_ocaml/build_runtime.ml

@@ -28,4 +28,4 @@ let info =
        to run pure OCaml programs in JavaScript environments like web browsers and \
        Node.js."
 
-let command = Cmdliner.Term.(pure Compile.run $ Arg.options_runtime_only), info
+let command = Cmdliner.Term.(pure Compile.run $ Cmd_arg.options_runtime_only), info

compiler/bin-js_of_ocaml/arg.ml renamed to compiler/bin-js_of_ocaml/cmd_arg.ml

@@ -29,7 +29,7 @@ let gen_unit_filename dir u =
   Filename.concat dir (Printf.sprintf "%s.js" u.Cmo_format.cu_name)
 
 let run
-    { Arg.common
+    { Cmd_arg.common
     ; profile
     ; source_map
     ; runtime_files
@@ -294,6 +294,6 @@ let info name =
        to run pure OCaml programs in JavaScript environments like web browsers and \
        Node.js."
 
-let command_main = Cmdliner.Term.(pure run $ Arg.options), info "js_of_ocaml"
+let command_main = Cmdliner.Term.(pure run $ Cmd_arg.options), info "js_of_ocaml"
 
-let command = Cmdliner.Term.(pure run $ Arg.options), info "compile"
+let command = Cmdliner.Term.(pure run $ Cmd_arg.options), info "compile"

compiler/bin-js_of_ocaml/arg.mli renamed to compiler/bin-js_of_ocaml/cmd_arg.mli

@@ -16,7 +16,7 @@
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  *)
 
-val run : Arg.t -> unit
+val run : Cmd_arg.t -> unit
 
 val command : unit Cmdliner.Term.t * Cmdliner.Term.info
 

compiler/bin-js_of_ocaml/compile.ml

@@ -20,7 +20,7 @@
 open! Js_of_ocaml_compiler.Stdlib
 open Js_of_ocaml_compiler
 
-let f { Arg.output_file; source_map; resolve_sourcemap_url; js_files } =
+let f { Cmd_arg.output_file; source_map; resolve_sourcemap_url; js_files } =
   let with_output f =
     match output_file with
     | None -> f stdout
@@ -29,7 +29,7 @@ let f { Arg.output_file; source_map; resolve_sourcemap_url; js_files } =
   with_output (fun output ->
       Link_js.link ~output ~files:js_files ~source_map ~resolve_sourcemap_url)
 
-let main = Cmdliner.Term.(pure f $ Arg.options), Arg.info
+let main = Cmdliner.Term.(pure f $ Cmd_arg.options), Cmd_arg.info
 
 let _ =
   Timer.init Sys.time;

compiler/bin-js_of_ocaml/compile.mli

@@ -24,7 +24,7 @@ let error k = Format.ksprintf (fun s -> failwith s) k
 
 let _ = Sys.catch_break true
 
-let f { Arg.common; output_file; use_stdin; files } =
+let f { Cmd_arg.common; output_file; use_stdin; files } =
   Jsoo_cmdline.Arg.eval common;
   let chop_extension s = try Filename.chop_extension s with Invalid_argument _ -> s in
   let with_output f =
@@ -92,7 +92,7 @@ let f { Arg.common; output_file; use_stdin; files } =
       let pp = Pretty_print.to_out_channel out_channel in
       gen pp)
 
-let main = Cmdliner.Term.(pure f $ Arg.options), Arg.info
+let main = Cmdliner.Term.(pure f $ Cmd_arg.options), Cmd_arg.info
 
 let _ =
   Timer.init Sys.time;