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

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

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