Sys.argv is deprecated in Base v0.13.0 (#1163)

ocaml-ppx · Nov 22, 2019 · 4d5599a · 4d5599a
1 parent a906b5d
commit 4d5599a
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/CHANGES.md b/CHANGES.md
@@ -15,6 +15,7 @@
 
 #### Internal
 
+  + Work with base v0.13.0 (#1163) (Jules Aguillon)
   + Sanitize formatting of or-patterns and remove or_newline (#1145) (Guillaume Petiot)
   + Replace pre_break and if_newline by cbreak (#1090) (Guillaume Petiot)
   + Use opt and fmt_opt to simplify formatting (#1150) (Guillaume Petiot)

diff --git a/lib/Translation_unit.ml b/lib/Translation_unit.ml
@@ -91,7 +91,7 @@ let dump_formatted ~input_name ?output_file ~suffix fmted =
   else None
 
 let print_error ?(fmt = Format.err_formatter) conf ~input_name error =
-  let exe = Filename.basename Sys.argv.(0) in
+  let exe = Filename.basename Caml.Sys.argv.(0) in
   match error with
   | Invalid_source _ when conf.Conf.quiet -> ()
   | Invalid_source {exn} -> (