Commit 41676ec8 authored by's avatar
Browse files

Fix egregious error in earlier "Record evaluated-ness" patch

parent 1994febd
......@@ -526,7 +526,7 @@ simplLamBndr :: SimplEnv -> Var -> SimplM (SimplEnv, Var)
-- The "{=(a,b)}" is an unfolding we can't reconstruct otherwise.
simplLamBndr env bndr
| isId bndr && hasSomeUnfolding old_unf = seqId id2 `seq` return (env2, id2) -- Special case
| otherwise = seqId id1 `seq` return (env1, id1) -- Normal case
| otherwise = simplBinder env bndr -- Normal case
old_unf = idUnfolding bndr
(env1, id1) = substIdBndr env bndr
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