Merge pull request #85 from ocaml-ppx/ps/rr/refactor__use_raise_error…

…_in_more_places
ocaml-ppx · Feb 10, 2023 · bdcee74 · bdcee74
2 parents 056ef45 + 5f7922d
commit bdcee74
Showing 1 changed file with 2 additions and 11 deletions.
diff --git a/src/ppx_import.ml b/src/ppx_import.ml
@@ -550,17 +550,8 @@ let module_type ~tool_name ~input_name (package_type : Ppxlib.package_type) =
             in
             Ast_helper.Mty.mk ~attrs:[] (Pmty_signature psig)
           | {mtd_type = None; _} ->
-            let ext =
-              Ppxlib.Location.error_extensionf ~loc
-                "Imported module is abstract"
-            in
-            Ast_builder.Default.pmty_extension ~loc ext
-          | _ ->
-            let ext =
-              Ppxlib.Location.error_extensionf ~loc
-                "Imported module is indirectly defined"
-            in
-            Ast_builder.Default.pmty_extension ~loc ext )
+            raise_error ~loc "Imported module is abstract"
+          | _ -> raise_error ~loc "Imported module is indirectly defined" )
   with Error {loc; error} ->
     let ext = Ppxlib.Location.error_extensionf ~loc "%s" error in
     Ast_builder.Default.pmty_extension ~loc ext