|
@@ -1412,7 +1412,7 @@ module Match = struct
|
|
end;
|
|
end;
|
|
let e = try
|
|
let e = try
|
|
let t_switch = infer_switch_type() in
|
|
let t_switch = infer_switch_type() in
|
|
- (match tmono with Some t -> Type.unify t_switch t | _ -> ());
|
|
|
|
|
|
+ (match tmono with Some t -> unify ctx t_switch t p | _ -> ());
|
|
TexprConverter.to_texpr ctx t_switch match_debug with_type dt
|
|
TexprConverter.to_texpr ctx t_switch match_debug with_type dt
|
|
with TexprConverter.Not_exhaustive ->
|
|
with TexprConverter.Not_exhaustive ->
|
|
error "Unmatched patterns: _" p;
|
|
error "Unmatched patterns: _" p;
|