projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2000-11-07 13:12:21 by simonpj]
[ghc-hetmet.git]
/
ghc
/
compiler
/
rename
/
RnHsSyn.lhs
diff --git
a/ghc/compiler/rename/RnHsSyn.lhs
b/ghc/compiler/rename/RnHsSyn.lhs
index
fefcf7c
..
dc4bd87
100644
(file)
--- a/
ghc/compiler/rename/RnHsSyn.lhs
+++ b/
ghc/compiler/rename/RnHsSyn.lhs
@@
-162,9
+162,9
@@
instDeclFVs (InstDecl inst_ty _ _ maybe_dfun _)
----------------
ruleDeclFVs (HsRule _ _ _ _ _ _) = emptyFVs
----------------
ruleDeclFVs (HsRule _ _ _ _ _ _) = emptyFVs
-ruleDeclFVs (IfaceRule _ vars _ _ rhs _)
+ruleDeclFVs (IfaceRule _ vars _ args rhs _)
= delFVs (map ufBinderName vars) $
= delFVs (map ufBinderName vars) $
- ufExprFVs rhs
+ ufExprFVs rhs `plusFV` plusFVs (map ufExprFVs args)
----------------
conDeclFVs (ConDecl _ _ tyvars context details _)
----------------
conDeclFVs (ConDecl _ _ tyvars context details _)