diff options
| author | Alasdair Armstrong | 2019-11-11 17:00:24 +0000 |
|---|---|---|
| committer | Alasdair Armstrong | 2019-11-11 17:00:24 +0000 |
| commit | cd49c9df8e1d688327ae045729b538df00b77622 (patch) | |
| tree | c44354bb5ee44c165e9ac6e69795d1ae96c58a3f /src/initial_check.ml | |
| parent | 20df613aee16ab0a1610bd9507c55d4fe48a43f3 (diff) | |
Make sure undefined_gen inserts enough type annotations for union constructors
Diffstat (limited to 'src/initial_check.ml')
| -rw-r--r-- | src/initial_check.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/initial_check.ml b/src/initial_check.ml index 1aebdbc2..7012e915 100644 --- a/src/initial_check.ml +++ b/src/initial_check.ml @@ -931,8 +931,8 @@ let generate_undefineds vs_ids (Defs defs) = in let undefined_tu = function | Tu_aux (Tu_ty_id (Typ_aux (Typ_tup typs, _), id), _) -> - mk_exp (E_app (id, List.map (fun _ -> mk_lit_exp L_undef) typs)) - | Tu_aux (Tu_ty_id (typ, id), _) -> mk_exp (E_app (id, [mk_lit_exp L_undef])) + mk_exp (E_app (id, List.map (fun typ -> mk_exp (E_cast (typ, mk_lit_exp L_undef))) typs)) + | Tu_aux (Tu_ty_id (typ, id), _) -> mk_exp (E_app (id, [mk_exp (E_cast (typ, mk_lit_exp L_undef))])) in let p_tup = function | [pat] -> pat |