projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
1994feb
)
Fix egregious error in earlier "Record evaluated-ness" patch
author
simonpj@microsoft.com
<unknown>
Thu, 17 Jan 2008 13:40:57 +0000
(13:40 +0000)
committer
simonpj@microsoft.com
<unknown>
Thu, 17 Jan 2008 13:40:57 +0000
(13:40 +0000)
compiler/simplCore/SimplEnv.lhs
patch
|
blob
|
history
diff --git
a/compiler/simplCore/SimplEnv.lhs
b/compiler/simplCore/SimplEnv.lhs
index
10e243c
..
bb98032
100644
(file)
--- a/
compiler/simplCore/SimplEnv.lhs
+++ b/
compiler/simplCore/SimplEnv.lhs
@@
-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