From 0b8c23bc97500b0538aab5e1bc1219b18f1a0473 Mon Sep 17 00:00:00 2001 From: sewardj Date: Thu, 12 Oct 2000 11:48:52 +0000 Subject: [PATCH] [project @ 2000-10-12 11:48:52 by sewardj] mkSrc* -> mk* (forgotten in last commit) --- ghc/compiler/prelude/TysPrim.lhs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 1.7.10.4