X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRnLoop.lhi;h=8aa729dd5ade2751a5dc9dec4e05489d3790cbbf;hb=621865f4eca057c8b8600d4e40e30da22e98b0a5;hp=92b7d418b63f1ede86dd608c891e73ed52bab2e9;hpb=6c381e873e222417d9a67aeec77b9555eca7b7a8;p=ghc-hetmet.git

diff --git a/ghc/compiler/rename/RnLoop.lhi b/ghc/compiler/rename/RnLoop.lhi
index 92b7d41..8aa729d 100644
--- a/ghc/compiler/rename/RnLoop.lhi
+++ b/ghc/compiler/rename/RnLoop.lhi
@@ -1,22 +1,20 @@
-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(..), RdrNameHsType(..) )
+import RnHsSyn		( RenamedHsBinds(..), RenamedHsType(..) )
+import RnBinds		( rnBinds )
+import RnMonad		( RnMS(..), FreeVars )
+import RnSource		( rnHsType )
 import UniqSet		( UniqSet(..) )
+import Name		( Name )
 
-rnBinds :: ProtoNameHsBinds -> Rn4M (RenamedHsBinds, FreeVars, [Name])
-rnGenPragmas :: ProtoNameGenPragmas -> Rn4M RenamedGenPragmas
-rnPolyType :: Bool
-	    -> TyVarNamesEnv
-	    -> ProtoNamePolyType
-	    -> Rn4M RenamedPolyType
+rnBinds :: RdrNameHsBinds 
+	-> (RenamedHsBinds -> RnMS s (result, FreeVars))
+	-> RnMS s (result, FreeVars)
 
-type FreeVars = UniqSet Name
+rnHsType :: RdrNameHsType
+	 -> RnMS s RenamedHsType
 \end{code}