From: sewardj <unknown>
Date: Mon, 16 Oct 2000 11:39:25 +0000 (+0000)
Subject: [project @ 2000-10-16 11:39:25 by sewardj]
X-Git-Tag: Approximately_9120_patches~3579
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=36b6645592fcb223a634012d4cc50cc4646f2257;p=ghc-hetmet.git

[project @ 2000-10-16 11:39:25 by sewardj]
mkBuiltinSrcLoc -> builtinSrcLoc
---

diff --git a/ghc/compiler/types/Generics.lhs b/ghc/compiler/types/Generics.lhs
index 0a0ec46..24782a7 100644
--- a/ghc/compiler/types/Generics.lhs
+++ b/ghc/compiler/types/Generics.lhs
@@ -36,7 +36,7 @@ import IdInfo           ( vanillaIdInfo, setUnfoldingInfo )
 import CoreUnfold       ( mkTopUnfolding ) 
 
 import Unique		( Uniquable(..), mkBuiltinUnique )
-import SrcLoc		( mkBuiltinSrcLoc )
+import SrcLoc		( builtinSrcLoc )
 import Maybes		( maybeToBool, expectJust )
 import Outputable 
 
@@ -473,6 +473,6 @@ genericNames :: [Name]
 genericNames = [mkSysLocalName (mkBuiltinUnique i) (_PK_ ('g' : show i)) | i <- [1..]]
 (g1:g2:g3:_) = genericNames
 
-mk_hs_lam pats body = HsPar (HsLam (mkSimpleMatch pats body Nothing mkBuiltinSrcLoc))
+mk_hs_lam pats body = HsPar (HsLam (mkSimpleMatch pats body Nothing builtinSrcLoc))
 idexpr		    = mk_hs_lam [VarPatIn g3] (HsVar g3)
 \end{code}