From caa65ae56fbc1e7c665f48045ef3438e88f588c2 Mon Sep 17 00:00:00 2001 From: Antal Spector-Zabusky Date: Thu, 17 Jun 2021 12:02:05 -0400 Subject: [PATCH] Handle `Persistent_env.Error` in `Typemod.initial_env` --- src/ocaml/typing/typemod.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 ->