Commit 95828dad authored by Andrei Paskevich's avatar Andrei Paskevich
Browse files

whyml: fix effect computation for match statements

parent 27f48811
......@@ -539,6 +539,7 @@ let e_case_real pv bl =
let ghost = ghost || vtv.vtv_ghost in
let del_vs vs _ m = Mid.remove vs.vs_name m in
let bvars = Mvs.fold del_vs pp.ppat_pattern.pat_vars e.e_vars in
let eff = eff_union (eff_union eff pp.ppat_effect) e.e_effect in
branch ghost eff (varmap_union vars bvars) bl
| [] ->
let vty = VTvalue (vty_value ~ghost ity) in
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment