|
@@ -1364,7 +1364,7 @@ and type_switch ctx e cases def need_val p =
|
|
|
| _ -> assert false
|
|
| _ -> assert false
|
|
|
in
|
|
in
|
|
|
let constructs (c,_,e) =
|
|
let constructs (c,_,e) =
|
|
|
- let c = mk (TField (mk (TTypeExpr (TEnumDecl en)) (mk_mono()) p , c)) (TEnum (en,enparams)) p in
|
|
|
|
|
|
|
+ let c = mk (TField (mk (TTypeExpr (TEnumDecl en)) t_dynamic p , c)) (TEnum (en,enparams)) p in
|
|
|
(c,e)
|
|
(c,e)
|
|
|
in
|
|
in
|
|
|
let cases = List.map matchs cases in
|
|
let cases = List.map matchs cases in
|
Nicolas Cannasse