[project @ 1996-04-07 15:41:24 by partain]

[ghc-hetmet.git] / ghc / compiler / rename / RnLoop.lhi

diff --git a/ghc/compiler/rename/RnLoop.lhi b/ghc/compiler/rename/RnLoop.lhi
index 92b7d41..f228aee 100644 (file)
--- a/ghc/compiler/rename/RnLoop.lhi
+++ b/ghc/compiler/rename/RnLoop.lhi
@@ -1,22 +1,18 @@
-Breaks the RnPass4/RnExpr4/RnBind4 loops.
+Breaks the RnSource/RnExpr/RnBinds loops.
 
 \begin{code}
 interface RnLoop where
 
-import Name            ( Name )
-import RdrHsSyn                ( ProtoNameHsBinds(..), ProtoNamePolyType(..), ProtoNameGenPragmas(..) )
-import RnHsSyn         ( RenamedHsBinds(..), RenamedPolyType(..), RenamedGenPragmas(..) )
-import RnBinds4                ( rnBinds, FreeVars(..) )
-import RnMonad4                ( TyVarNamesEnv(..), Rn4M(..) )
-import RnPass4         ( rnPolyType, rnGenPragmas )
+import RdrHsSyn                ( RdrNameHsBinds(..), RdrNamePolyType(..) )
+import RnHsSyn         ( RnName, RenamedHsBinds(..), RenamedPolyType(..) )
+import RnBinds         ( rnBinds, FreeVars(..) )
+import RnMonad         ( TyVarNamesEnv(..), RnM_Fixes(..) )
+import RnSource                ( rnPolyType )
 import UniqSet         ( UniqSet(..) )
 
-rnBinds :: ProtoNameHsBinds -> Rn4M (RenamedHsBinds, FreeVars, [Name])
-rnGenPragmas :: ProtoNameGenPragmas -> Rn4M RenamedGenPragmas
-rnPolyType :: Bool
-           -> TyVarNamesEnv
-           -> ProtoNamePolyType
-           -> Rn4M RenamedPolyType
-
-type FreeVars = UniqSet Name
+rnBinds :: RdrNameHsBinds -> RnM_Fixes s (RenamedHsBinds, FreeVars, [RnName])
+rnPolyType :: TyVarNamesEnv
+          -> RdrNamePolyType
+          -> RnM_Fixes s RenamedPolyType
+type FreeVars = UniqSet RnName
 \end{code}