[project @ 1997-03-17 20:34:25 by simonpj]

[ghc-hetmet.git] / ghc / compiler / prelude / PrelLoop.lhi

diff --git a/ghc/compiler/prelude/PrelLoop.lhi b/ghc/compiler/prelude/PrelLoop.lhi
index c016e48..9d5d407 100644 (file)
--- a/ghc/compiler/prelude/PrelLoop.lhi
+++ b/ghc/compiler/prelude/PrelLoop.lhi
@@ -3,24 +3,24 @@ Breaks the PrelVal loop and the PrelInfo loop caused by primOpNameInfo.
 \begin{code}
 interface PrelLoop where
 
-import PreludePS       ( _PackedString )
+--import PreludePS     ( _PackedString )
+import FastString       ( FastSring )
 
 import Class           ( GenClass )
-import CoreUnfold      ( mkMagicUnfolding, UnfoldingDetails )
-import IdUtils         ( primOpNameInfo )
-import Name            ( Name, OrigName, mkPrimitiveName, mkWiredInName )
+import CoreUnfold      ( mkMagicUnfolding, Unfolding )
+import IdUtils         ( primOpName )
+import Name            ( Name, ExportFlag )
 import PrimOp          ( PrimOp )
 import RnHsSyn         ( RnName )
-import Type            ( mkSigmaTy, mkFunTys, GenType )
+import Type            ( mkSigmaTy, mkFunTy, mkFunTys, GenType )
 import TyVar           ( GenTyVar )
 import Unique          ( Unique )
 import Usage           ( GenUsage )
 
-mkMagicUnfolding :: Unique -> UnfoldingDetails
-mkPrimitiveName :: Unique -> OrigName -> Name
-mkWiredInName :: Unique -> OrigName -> Name
+mkMagicUnfolding :: Unique -> Unfolding
 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
+mkFunTy  :: GenType a b   -> GenType a b -> GenType a b
 
-primOpNameInfo :: PrimOp -> (_PackedString, RnName)
+primOpName :: PrimOp -> Name
 \end{code}