X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRnSource.lhs;h=6ee9f8a7dd9c7afebb534daf299726289b0a153c;hb=a8eecb891f9ca609b1ca96dee520124b00ece40f;hp=173810516cb5ec6b68196bde7ac51af1b2e6b89e;hpb=f4c9d2b23bd63b48566e0ca3b13c8bdfc4cd0c0b;p=ghc-hetmet.git

diff --git a/ghc/compiler/rename/RnSource.lhs b/ghc/compiler/rename/RnSource.lhs
index 1738105..6ee9f8a 100644
--- 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 Name		( Name )
+import Name		( Name, nameOccName )
 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
-	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