X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fprelude%2FPrimOp.lhs;h=e334fa1afcc40baddd61a4058865bed881bcb5a4;hb=da162afcfc9db8335834bb279217c4707fb67988;hp=82e1f0d41129b00e8b772e4cf6128e8b674f48ce;hpb=12467fbf505554bb20d0a3502dc162d605373da5;p=ghc-hetmet.git

diff --git a/ghc/compiler/prelude/PrimOp.lhs b/ghc/compiler/prelude/PrimOp.lhs
index 82e1f0d..e334fa1 100644
--- a/ghc/compiler/prelude/PrimOp.lhs
+++ b/ghc/compiler/prelude/PrimOp.lhs
@@ -33,7 +33,7 @@ import Demand		( wwLazy, wwPrim, wwStrict, StrictnessInfo(..) )
 import Var		( TyVar )
 import CallConv		( CallConv, pprCallConv )
 import Name		( Name, mkWiredInName )
-import RdrName		( RdrName, mkRdrQual )
+import RdrName		( RdrName, mkRdrOrig )
 import OccName		( OccName, pprOccName, mkVarOcc )
 import TyCon		( TyCon, tyConArity )
 import Type		( Type, mkForAllTys, mkFunTy, mkFunTys, mkTyVarTys,
@@ -445,7 +445,7 @@ mkPrimOpIdName op
   = mkWiredInName pREL_GHC (primOpOcc op) (mkPrimOpIdUnique (primOpTag op))
 
 primOpRdrName :: PrimOp -> RdrName 
-primOpRdrName op = mkRdrQual pREL_GHC_Name (primOpOcc op)
+primOpRdrName op = mkRdrOrig pREL_GHC_Name (primOpOcc op)
 
 primOpOcc :: PrimOp -> OccName
 primOpOcc op = case (primOpInfo op) of