Commit 948c1d31 authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Crucial bug fix: use scrut' rather than scrut!

parent d36770b9
......@@ -1975,7 +1975,7 @@ simplAlts env scrut case_bndr alts cont'
-- NB: it's possible that the returned in_alts is empty: this is handled
-- by the caller (rebuildCase) in the missingAlt function
; alts' <- mapM (simplAlt alt_env' (Just scrut) imposs_deflt_cons case_bndr' cont') in_alts
; alts' <- mapM (simplAlt alt_env' (Just scrut') imposs_deflt_cons case_bndr' cont') in_alts
; -- pprTrace "simplAlts" (ppr case_bndr $$ ppr alts_ty $$ ppr alts_ty' $$ ppr alts $$ ppr cont') $
return (scrut', case_bndr', alts') }
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