projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add a target32Bit function to Platform
[ghc-hetmet.git]
/
compiler
/
simplCore
/
OccurAnal.lhs
diff --git
a/compiler/simplCore/OccurAnal.lhs
b/compiler/simplCore/OccurAnal.lhs
index
c593e81
..
ba7d192
100644
(file)
--- a/
compiler/simplCore/OccurAnal.lhs
+++ b/
compiler/simplCore/OccurAnal.lhs
@@
-101,11
+101,6
@@
occAnalBind env _ (NonRec binder rhs) body_usage
| isTyVar binder -- A type let; we don't gather usage info
= (body_usage, [NonRec binder rhs])
| isTyVar binder -- A type let; we don't gather usage info
= (body_usage, [NonRec binder rhs])
- | isCoVar binder -- A coercion let; again no usage info
- -- We trust that it'll get inlined away
- -- as soon as it takes form (cv = Coercion co)
- = (body_usage, [NonRec binder rhs])
-
| not (binder `usedIn` body_usage) -- It's not mentioned
= (body_usage, [])
| not (binder `usedIn` body_usage) -- It's not mentioned
= (body_usage, [])