projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 1996-06-05 06:44:31 by partain]
[ghc-hetmet.git]
/
ghc
/
compiler
/
rename
/
RnHsSyn.lhs
diff --git
a/ghc/compiler/rename/RnHsSyn.lhs
b/ghc/compiler/rename/RnHsSyn.lhs
index
c80f351
..
d8cfa12
100644
(file)
--- a/
ghc/compiler/rename/RnHsSyn.lhs
+++ b/
ghc/compiler/rename/RnHsSyn.lhs
@@
-8,7
+8,7
@@
module RnHsSyn where
module RnHsSyn where
-import Ubiq
+IMP_Ubiq()
import HsSyn
import HsSyn
@@
-82,7
+82,7
@@
isRnField (RnField _ _) = True
isRnField _ = False
isRnClassOp cls (RnClassOp _ op_cls) = eqUniqsNamed cls op_cls
isRnField _ = False
isRnClassOp cls (RnClassOp _ op_cls) = eqUniqsNamed cls op_cls
-isRnClassOp cls _ = False
+isRnClassOp cls n = pprTrace "isRnClassOp:" (ppr PprShowAll n) $ True -- let it past anyway
isRnImplicit (RnImplicit _) = True
isRnImplicit (RnImplicitTyCon _) = True
isRnImplicit (RnImplicit _) = True
isRnImplicit (RnImplicitTyCon _) = True