minor fix

ocaml-flambda · Jun 28, 2024 · f3430c6 · f3430c6
1 parent a25aae3
commit f3430c6
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/ocaml/typing/typedecl.ml b/ocaml/typing/typedecl.ml
@@ -2896,7 +2896,8 @@ let transl_value_decl env loc valdecl =
     [] when Env.is_in_signature env ->
       let modalities =
         valdecl.pval_modalities
-        |> Typemode.transl_modalities ~maturity:Alpha Immutable
+        |> Typemode.transl_modalities ~maturity:Alpha
+            ~has_mutable_implied_modalities:false
         |> Mode.Modality.Value.of_const
       in
       let default_arity =