[project @ 1996-06-26 10:26:00 by partain]

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

diff --git a/ghc/compiler/prelude/PrelLoop.lhi b/ghc/compiler/prelude/PrelLoop.lhi
index c016e48..724a8a2 100644 (file)
--- 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, OrigName, mkPrimitiveName, mkWiredInName )
+import Name            ( Name, OrigName, mkPrimitiveName, mkWiredInName, ExportFlag )
 import PrimOp          ( PrimOp )
 import RnHsSyn         ( RnName )
 import Type            ( mkSigmaTy, mkFunTys, GenType )
@@ -18,7 +18,7 @@ import Usage          ( GenUsage )
 
 mkMagicUnfolding :: Unique -> UnfoldingDetails
 mkPrimitiveName :: Unique -> OrigName -> Name
-mkWiredInName :: 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