From: sewardj <unknown>
Date: Thu, 12 Oct 2000 11:48:52 +0000 (+0000)
Subject: [project @ 2000-10-12 11:48:52 by sewardj]
X-Git-Tag: Approximately_9120_patches~3621
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=0b8c23bc97500b0538aab5e1bc1219b18f1a0473;p=ghc-hetmet.git

[project @ 2000-10-12 11:48:52 by sewardj]
mkSrc* -> mk* (forgotten in last commit)
---

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