projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
1727a8c
)
[project @ 2005-07-26 07:30:37 by simonpj]
author
simonpj
<unknown>
Tue, 26 Jul 2005 07:30:37 +0000
(07:30 +0000)
committer
simonpj
<unknown>
Tue, 26 Jul 2005 07:30:37 +0000
(07:30 +0000)
Revert accidental commit
ghc/compiler/basicTypes/IdInfo.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/basicTypes/IdInfo.lhs
b/ghc/compiler/basicTypes/IdInfo.lhs
index
5797436
..
765d776
100644
(file)
--- a/
ghc/compiler/basicTypes/IdInfo.lhs
+++ b/
ghc/compiler/basicTypes/IdInfo.lhs
@@
-674,12
+674,12
@@
zapLamInfo info@(IdInfo {occInfo = occ, newDemandInfo = demand})
where
-- The "unsafe" occ info is the ones that say I'm not in a lambda
-- because that might not be true for an unsaturated lambda
where
-- The "unsafe" occ info is the ones that say I'm not in a lambda
-- because that might not be true for an unsaturated lambda
- is_safe_occ (OneOcc in_lam _ _) = in_lam
- is_safe_occ other = True
+ is_safe_occ (OneOcc in_lam _) = in_lam
+ is_safe_occ other = True
safe_occ = case occ of
safe_occ = case occ of
- OneOcc _ once min_args -> OneOcc insideLam once min_args
- other -> occ
+ OneOcc _ once -> OneOcc insideLam once
+ other -> occ
is_safe_dmd Nothing = True
is_safe_dmd (Just dmd) = not (isStrictDmd dmd)
is_safe_dmd Nothing = True
is_safe_dmd (Just dmd) = not (isStrictDmd dmd)