[ppx] Fix refier construction: better location error

Signed-off-by: Dmitrii.Kosarev a.k.a. Kakadu <[email protected]>
PLTools · Dec 24, 2024 · 684ae81 · 684ae81
1 parent 962312e
commit 684ae81
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/ppx/reify/reify_impl.ml b/ppx/reify/reify_impl.ml
@@ -371,7 +371,7 @@ let reifier_of_core_type ?(reifier_for_var = Fun.id) ~loc kind =
         Exp.apply ~loc (pexp_ident ~loc (Located.mk ~loc (Lident reifier_name))) (Lazy.force args)
     | Lident "t" ->
         Exp.apply ~loc (pexp_ident ~loc (Located.mk ~loc (Lident reifier_name))) (Lazy.force args)
-    | _ -> assert false
+    | _ -> pexp_extension ~loc @@ Location.error_extensionf ~loc "Can't construct reifier "
   in
   let rec helper typ : expression =
     let loc = typ.ptyp_loc in