projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[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
9d17859
..
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 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 )
import PrimOp ( PrimOp )
import RnHsSyn ( RnName )
import Type ( mkSigmaTy, mkFunTys, GenType )
@@
-17,7
+17,8
@@
import Unique ( Unique )
import Usage ( GenUsage )
mkMagicUnfolding :: Unique -> UnfoldingDetails
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
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