|
@@ -941,7 +941,7 @@ let match_expr ctx e cases def with_type p =
|
|
| _ ->
|
|
| _ ->
|
|
let e = type_expr ctx e Value in
|
|
let e = type_expr ctx e Value in
|
|
begin match e.etype with
|
|
begin match e.etype with
|
|
- | TEnum(en,_) when PMap.is_empty en.e_constrs ->
|
|
|
|
|
|
+ | TEnum(en,_) when PMap.is_empty en.e_constrs || has_meta ":fakeEnum" en.e_meta ->
|
|
raise Exit
|
|
raise Exit
|
|
| _ ->
|
|
| _ ->
|
|
()
|
|
()
|