Make warning 31 non fatal for utop (#211)

This allows jbuilder to create toplevels with conflicting module names. Such as ExtLib's and Camomiles' UChar for example.
2017-08-09 18:04:01 +09:00 · 2017-08-09 18:04:01 +09:00 · 188134775f
parent b913a42739
commit 188134775f
1 changed files with 4 additions and 1 deletions
--- a/src/utop.ml
+++ b/src/utop.ml
@ -36,7 +36,10 @@ let utop_of_libs (libs : Library.t list) =
  { Executables.names = [exe_name]
  ; link_executables = true
  ; link_flags = Ordered_set_lang.Unexpanded.t (
-      Sexp.add_loc ~loc:Loc.none (List [Atom "-linkall"])
+      Sexp.add_loc ~loc:Loc.none
+        (List [ Atom "-linkall"
+              ; Atom "-warn-error"
+              ; Atom "-31" ])
    )
  ; modes = Mode.Dict.Set.of_list [Mode.Byte]
  ; buildable =