[project @ 1996-04-05 08:26:04 by partain]

[ghc-hetmet.git] / ghc / compiler / prelude / PrelVals.lhs

diff --git a/ghc/compiler/prelude/PrelVals.lhs b/ghc/compiler/prelude/PrelVals.lhs
index 457d11b..b4845f7 100644 (file)
--- a/ghc/compiler/prelude/PrelVals.lhs
+++ b/ghc/compiler/prelude/PrelVals.lhs
@@ -10,6 +10,7 @@ module PrelVals where
 
 import Ubiq
 import IdLoop          ( UnfoldingGuidance(..) )
+import Id              ( Id(..), GenId, mkPreludeId, mkTemplateLocals )
 import PrelLoop
 
 -- friends:
@@ -29,13 +30,13 @@ import SpecEnv              ( SpecEnv(..), nullSpecEnv )
 import TyVar           ( alphaTyVar, betaTyVar )
 import Unique          -- lots of *Keys
 import Util            ( panic )
+\end{code}
+
 
--- only used herein:
-mkPreludeId = panic "PrelVals:Id.mkPreludeId"
-mkSpecId = panic "PrelVals:Id.mkSpecId"
-mkTemplateLocals = panic "PrelVals:Id.mkTemplateLocals"
-specialiseTy = panic "PrelVals:specialiseTy"
 
+
+\begin{code}
+-- only used herein:
 pcMiscPrelId :: Unique{-IdKey-} -> FAST_STRING -> FAST_STRING -> Type -> IdInfo -> Id
 
 pcMiscPrelId key mod name ty info