Commit 41676ec8 authored by simonpj@microsoft.com's avatar simonpj@microsoft.com

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
where
old_unf = idUnfolding bndr
(env1, id1) = substIdBndr env bndr
......
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