X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fprelude%2FTysPrim.lhs;h=8b96d6e654406215a0279f0126e27940bbef06e8;hb=0b8c23bc97500b0538aab5e1bc1219b18f1a0473;hp=5e7b4a3782a86a3fab065d5a96a7e713a78805b5;hpb=6eca2acf184d4911123193757bdd38e53caa3467;p=ghc-hetmet.git

diff --git a/ghc/compiler/prelude/TysPrim.lhs b/ghc/compiler/prelude/TysPrim.lhs
index 5e7b4a3..8b96d6e 100644
--- a/ghc/compiler/prelude/TysPrim.lhs
+++ b/ghc/compiler/prelude/TysPrim.lhs
@@ -50,7 +50,7 @@ module TysPrim(
 
 import Var		( TyVar, mkSysTyVar )
 import Name		( mkWiredInTyConName )
-import OccName		( mkSrcOccFS, tcName )
+import OccName		( mkOccFS, tcName )
 import PrimRep		( PrimRep(..), isFollowableRep )
 import TyCon		( mkPrimTyCon, TyCon, ArgVrcs )
 import Type		( Type, 
@@ -151,7 +151,7 @@ pcPrimTyCon :: Unique{-TyConKey-} -> FAST_STRING -> Int -> ArgVrcs -> PrimRep ->
 pcPrimTyCon key str arity arg_vrcs rep
   = the_tycon
   where
-    name      = mkWiredInTyConName key pREL_GHC (mkSrcOccFS tcName str) the_tycon
+    name      = mkWiredInTyConName key pREL_GHC (mkOccFS tcName str) the_tycon
     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