X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fprelude%2FPrelLoop.lhi;h=9d178592016e5ad120af8d44be9ec1d524c73acd;hb=a77abe6a30ea2763cfa1c0ca83cdce9b7200ced2;hp=229343141a913cfd1a7bd7f53e99c775b42702bf;hpb=6c381e873e222417d9a67aeec77b9555eca7b7a8;p=ghc-hetmet.git

diff --git a/ghc/compiler/prelude/PrelLoop.lhi b/ghc/compiler/prelude/PrelLoop.lhi
index 2293431..9d17859 100644
--- a/ghc/compiler/prelude/PrelLoop.lhi
+++ b/ghc/compiler/prelude/PrelLoop.lhi
@@ -8,18 +8,18 @@ import PreludePS	( _PackedString )
 import Class		( GenClass )
 import CoreUnfold	( mkMagicUnfolding, UnfoldingDetails )
 import IdUtils		( primOpNameInfo )
-import Name		( Name )
-import NameTypes	( mkPreludeCoreName, FullName )
+import Name		( Name, mkBuiltinName )
 import PrimOp		( PrimOp )
+import RnHsSyn		( RnName )
 import Type		( mkSigmaTy, mkFunTys, GenType )
 import TyVar		( GenTyVar )
 import Unique		( Unique )
 import Usage		( GenUsage )
 
 mkMagicUnfolding :: Unique -> UnfoldingDetails
-mkPreludeCoreName :: _PackedString -> _PackedString -> FullName
+mkBuiltinName :: Unique -> _PackedString -> _PackedString -> Name
 mkSigmaTy :: [a] -> [(GenClass (GenTyVar (GenUsage Unique)) Unique, GenType a b)] -> GenType a b -> GenType a b
 mkFunTys :: [GenType a b] -> GenType a b -> GenType a b
 
-primOpNameInfo	:: PrimOp -> (_PackedString, Name)
+primOpNameInfo	:: PrimOp -> (_PackedString, RnName)
 \end{code}