loader: Fix compatibility with 4.02

ocaml · Jan 17, 2025 · 1a202d0 · 1a202d0
1 parent da1447f
commit 1a202d0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/loader/cmti.ml b/src/loader/cmti.ml
@@ -51,7 +51,7 @@ let rec read_core_type env container ctyp =
            argument since the 4.02.x representation includes it explicitly. *)
         let arg = match lbl with
           | None | Some(Label(_)) -> read_core_type env container arg
-          | Some(Optional(_)) ->
+          | Some(Optional(_)) | Some(RawOptional(_)) ->
               let arg' = match arg.ctyp_desc with
                 | Ttyp_constr(_, _, param :: _) -> param
                 | _ -> arg