refactor: use raise_error in more places

ocaml-ppx · Feb 8, 2023 · 5f7922d · 5f7922d
1 parent 54e5278
commit 5f7922d
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