projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2004-11-09 13:28:13 by simonpj]
[ghc-hetmet.git]
/
ghc
/
compiler
/
rename
/
RnSource.lhs
diff --git
a/ghc/compiler/rename/RnSource.lhs
b/ghc/compiler/rename/RnSource.lhs
index
1738105
..
6ee9f8a
100644
(file)
--- a/
ghc/compiler/rename/RnSource.lhs
+++ b/
ghc/compiler/rename/RnSource.lhs
@@
-35,7
+35,7
@@
import BasicTypes ( TopLevelFlag(..) )
import HscTypes ( FixityEnv, FixItem(..),
Deprecations, Deprecs(..), DeprecTxt, plusDeprecs )
import Class ( FunDep )
import HscTypes ( FixityEnv, FixItem(..),
Deprecations, Deprecs(..), DeprecTxt, plusDeprecs )
import Class ( FunDep )
-import Name ( Name )
+import Name ( Name, nameOccName )
import NameSet
import NameEnv
import Outputable
import NameSet
import NameEnv
import Outputable
@@
-179,8
+179,7
@@
rnFixityDecl fix_env (L loc (FixitySig rdr_name fixity))
returnM fix_env
Nothing -> returnM (extendNameEnv fix_env name fix_item)
where
returnM fix_env
Nothing -> returnM (extendNameEnv fix_env name fix_item)
where
- fix_item = FixItem (rdrNameOcc (unLoc rdr_name)) fixity
- (getLoc rdr_name)
+ fix_item = FixItem (nameOccName name) fixity (getLoc rdr_name)
pprFixEnv :: FixityEnv -> SDoc
pprFixEnv env
pprFixEnv :: FixityEnv -> SDoc
pprFixEnv env