diff --git a/src/ocaml/typing/typemod.ml b/src/ocaml/typing/typemod.ml index 7044662350..4aeddd812a 100644 --- a/src/ocaml/typing/typemod.ml +++ b/src/ocaml/typing/typemod.ml @@ -157,7 +157,7 @@ let initial_env ~loc ~safe_string ~initially_opened_module try snd (type_open_ Override env lid.loc lid) with - | (Typetexp.Error _ | Env.Error _ | Magic_numbers.Cmi.Error _) as exn -> + | (Typetexp.Error _ | Env.Error _ | Magic_numbers.Cmi.Error _ | Persistent_env.Error _) as exn -> Msupport.raise_error exn; env | exn ->