From 36b6645592fcb223a634012d4cc50cc4646f2257 Mon Sep 17 00:00:00 2001 From: sewardj Date: Mon, 16 Oct 2000 11:39:25 +0000 Subject: [PATCH] [project @ 2000-10-16 11:39:25 by sewardj] mkBuiltinSrcLoc -> builtinSrcLoc --- ghc/compiler/types/Generics.lhs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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} -- 1.7.10.4