Commit 36b66455 authored by sewardj's avatar sewardj
Browse files

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

mkBuiltinSrcLoc -> builtinSrcLoc
parent 108a9146
......@@ -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}
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment