X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fprelude%2FPrelLoop.lhi;h=724a8a29cb081524c923f0f67e2f33e12a7a27fb;hb=26741ec416bae2c502ef00a2ba0e79050a32cb67;hp=9d178592016e5ad120af8d44be9ec1d524c73acd;hpb=f9120c200bcf613b58d742802172fb4c08171f0d;p=ghc-hetmet.git

diff --git a/ghc/compiler/prelude/PrelLoop.lhi b/ghc/compiler/prelude/PrelLoop.lhi
index 9d17859..724a8a2 100644
--- a/ghc/compiler/prelude/PrelLoop.lhi
+++ b/ghc/compiler/prelude/PrelLoop.lhi
@@ -8,7 +8,7 @@ import PreludePS	( _PackedString )
 import Class		( GenClass )
 import CoreUnfold	( mkMagicUnfolding, UnfoldingDetails )
 import IdUtils		( primOpNameInfo )
-import Name		( Name, mkBuiltinName )
+import Name		( Name, OrigName, mkPrimitiveName, mkWiredInName, ExportFlag )
 import PrimOp		( PrimOp )
 import RnHsSyn		( RnName )
 import Type		( mkSigmaTy, mkFunTys, GenType )
@@ -17,7 +17,8 @@ import Unique		( Unique )
 import Usage		( GenUsage )
 
 mkMagicUnfolding :: Unique -> UnfoldingDetails
-mkBuiltinName :: Unique -> _PackedString -> _PackedString -> Name
+mkPrimitiveName :: Unique -> OrigName -> Name
+mkWiredInName :: Unique -> OrigName -> ExportFlag -> 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