X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fprelude%2FTysPrim.lhs;h=6eaa3c6f796146ba2baddc6d412a793b353fb4ef;hb=da162afcfc9db8335834bb279217c4707fb67988;hp=71b69ba9f6b52f5ebfb83ff3a56d2a6230c67c39;hpb=12467fbf505554bb20d0a3502dc162d605373da5;p=ghc-hetmet.git

diff --git a/ghc/compiler/prelude/TysPrim.lhs b/ghc/compiler/prelude/TysPrim.lhs
index 71b69ba..6eaa3c6 100644
--- a/ghc/compiler/prelude/TysPrim.lhs
+++ b/ghc/compiler/prelude/TysPrim.lhs
@@ -57,7 +57,7 @@ import Type		( mkTyConApp, mkTyConTy, mkTyVarTys, mkTyVarTy,
 			)
 import Unique		( Unique, mkAlphaTyVarUnique )
 import Name		( mkKnownKeyGlobal )
-import RdrName		( mkPreludeQual )
+import RdrName		( mkOrig )
 import PrelNames
 import Outputable
 \end{code}
@@ -151,7 +151,7 @@ pcPrimTyCon :: Unique{-TyConKey-} -> FAST_STRING -> Int -> ArgVrcs -> PrimRep ->
 pcPrimTyCon key str arity arg_vrcs rep
   = the_tycon
   where
-    name      = mkKnownKeyGlobal (mkPreludeQual tcName pREL_GHC_Name str) key
+    name      = mkKnownKeyGlobal (mkOrig tcName pREL_GHC_Name str) key
     the_tycon = mkPrimTyCon name kind arity arg_vrcs rep
     kind      = mkArrowKinds (take arity (repeat boxedTypeKind)) result_kind
     result_kind | isFollowableRep rep = boxedTypeKind	-- Represented by a GC-ish ptr