Commit 762a9980 authored by Ronny Wichers Schreur's avatar Ronny Wichers Schreur 🏘
Browse files

revert bug fix in convert cases in anticipation of a proper fix

parent 6f8534bb
......@@ -1288,7 +1288,7 @@ instance convertRootCases Expression where
_
-> case case_expr of
(Var var)
| not case_explicit && (case ci.ci_case_level of
| not case_explicit || (case ci.ci_case_level of
CaseLevelAfterGuardRoot -> False
_ -> True)
# (varInfo, cs_var_heap) = readPtr var.var_info_ptr cs.cs_var_heap
......
Supports Markdown
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