X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRnLoop.lhi;h=f228aee0b9a72ca96c9015d9d030b4af30b3243f;hp=92b7d418b63f1ede86dd608c891e73ed52bab2e9;hb=f9120c200bcf613b58d742802172fb4c08171f0d;hpb=e5401e80e37622869b31d646a25da413c6801bae

diff --git a/ghc/compiler/rename/RnLoop.lhi b/ghc/compiler/rename/RnLoop.lhi
index 92b7d41..f228aee 100644
--- 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}