Merge pull request #108 from hhugo/omp1-412

Add limited support for OCaml 4.12 into omp1
ocaml-ppx · Oct 23, 2020 · c086576 · c086576
2 parents c5d4f6f + 073b37a
commit c086576
Show file tree

Hide file tree

Showing 20 changed files with 4,754 additions and 15 deletions.
diff --git a/src/ast_408.ml b/src/ast_408.ml
@@ -1262,18 +1262,18 @@ end = struct
   (* Warn for unused and ambiguous docstrings *)
 
   let warn_bad_docstrings () =
-    if Warnings.is_active (Warnings.Bad_docstring true) then begin
+    if Warnings.is_active (Migrate_parsetree_compiler_functions.bad_docstring true) then begin
       List.iter
         (fun ds ->
            match ds.ds_attached with
            | Info -> ()
            | Unattached ->
-             prerr_warning ds.ds_loc (Warnings.Bad_docstring true)
+             prerr_warning ds.ds_loc (Migrate_parsetree_compiler_functions.bad_docstring true)
            | Docs ->
              match ds.ds_associated with
              | Zero | One -> ()
              | Many ->
-               prerr_warning ds.ds_loc (Warnings.Bad_docstring false))
+               prerr_warning ds.ds_loc (Migrate_parsetree_compiler_functions.bad_docstring false))
         (List.rev !docstrings)
     end
 

diff --git a/src/ast_409.ml b/src/ast_409.ml
@@ -1251,18 +1251,18 @@ end = struct
   (* Warn for unused and ambiguous docstrings *)
 
   let warn_bad_docstrings () =
-    if Warnings.is_active (Warnings.Bad_docstring true) then begin
+    if Warnings.is_active (Migrate_parsetree_compiler_functions.bad_docstring true) then begin
       List.iter
         (fun ds ->
            match ds.ds_attached with
            | Info -> ()
            | Unattached ->
-             prerr_warning ds.ds_loc (Warnings.Bad_docstring true)
+             prerr_warning ds.ds_loc (Migrate_parsetree_compiler_functions.bad_docstring true)
            | Docs ->
              match ds.ds_associated with
              | Zero | One -> ()
              | Many ->
-               prerr_warning ds.ds_loc (Warnings.Bad_docstring false))
+               prerr_warning ds.ds_loc (Migrate_parsetree_compiler_functions.bad_docstring false))
         (List.rev !docstrings)
     end
 

diff --git a/src/ast_410.ml b/src/ast_410.ml
@@ -1254,18 +1254,18 @@ end = struct
   (* Warn for unused and ambiguous docstrings *)
 
   let warn_bad_docstrings () =
-    if Warnings.is_active (Warnings.Bad_docstring true) then begin
+    if Warnings.is_active (Migrate_parsetree_compiler_functions.bad_docstring true) then begin
       List.iter
         (fun ds ->
            match ds.ds_attached with
            | Info -> ()
            | Unattached ->
-               prerr_warning ds.ds_loc (Warnings.Bad_docstring true)
+               prerr_warning ds.ds_loc (Migrate_parsetree_compiler_functions.bad_docstring true)
            | Docs ->
                match ds.ds_associated with
                | Zero | One -> ()
                | Many ->
-                   prerr_warning ds.ds_loc (Warnings.Bad_docstring false))
+                   prerr_warning ds.ds_loc (Migrate_parsetree_compiler_functions.bad_docstring false))
         (List.rev !docstrings)
     end
 

diff --git a/src/ast_411.ml b/src/ast_411.ml
@@ -1254,18 +1254,18 @@ end = struct
   (* Warn for unused and ambiguous docstrings *)
 
   let warn_bad_docstrings () =
-    if Warnings.is_active (Warnings.Bad_docstring true) then begin
+    if Warnings.is_active (Migrate_parsetree_compiler_functions.bad_docstring true) then begin
       List.iter
         (fun ds ->
            match ds.ds_attached with
            | Info -> ()
            | Unattached ->
-               prerr_warning ds.ds_loc (Warnings.Bad_docstring true)
+               prerr_warning ds.ds_loc (Migrate_parsetree_compiler_functions.bad_docstring true)
            | Docs ->
                match ds.ds_associated with
                | Zero | One -> ()
                | Many ->
-                   prerr_warning ds.ds_loc (Warnings.Bad_docstring false))
+                   prerr_warning ds.ds_loc (Migrate_parsetree_compiler_functions.bad_docstring false))
         (List.rev !docstrings)
     end