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:
5862b2c
)
warning removal
author
Simon Marlow
<simonmar@microsoft.com>
Wed, 3 Oct 2007 17:34:48 +0000
(17:34 +0000)
committer
Simon Marlow
<simonmar@microsoft.com>
Wed, 3 Oct 2007 17:34:48 +0000
(17:34 +0000)
compiler/basicTypes/IdInfo.lhs
patch
|
blob
|
history
diff --git
a/compiler/basicTypes/IdInfo.lhs
b/compiler/basicTypes/IdInfo.lhs
index
55d011e
..
6b43c68
100644
(file)
--- a/
compiler/basicTypes/IdInfo.lhs
+++ b/
compiler/basicTypes/IdInfo.lhs
@@
-704,11
+704,11
@@
zapLamInfo info@(IdInfo {occInfo = occ, newDemandInfo = demand})
-- 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 _other = True
safe_occ = case occ of
OneOcc _ once int_cxt -> OneOcc insideLam once int_cxt
- other -> occ
+ _other -> occ
is_safe_dmd Nothing = True
is_safe_dmd (Just dmd) = not (isStrictDmd dmd)