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

diff --git a/ghc/compiler/rename/RnLoop.lhi b/ghc/compiler/rename/RnLoop.lhi
index f228aee..8aa729d 100644
--- a/ghc/compiler/rename/RnLoop.lhi
+++ b/ghc/compiler/rename/RnLoop.lhi
@@ -3,16 +3,18 @@ Breaks the RnSource/RnExpr/RnBinds loops.
 \begin{code}
 interface RnLoop where
 
-import RdrHsSyn		( RdrNameHsBinds(..), RdrNamePolyType(..) )
-import RnHsSyn		( RnName, RenamedHsBinds(..), RenamedPolyType(..) )
-import RnBinds		( rnBinds, FreeVars(..) )
-import RnMonad		( TyVarNamesEnv(..), RnM_Fixes(..) )
-import RnSource		( rnPolyType )
+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 :: RdrNameHsBinds -> RnM_Fixes s (RenamedHsBinds, FreeVars, [RnName])
-rnPolyType :: TyVarNamesEnv
-	   -> RdrNamePolyType
-	   -> RnM_Fixes s RenamedPolyType
-type FreeVars = UniqSet RnName
+rnBinds :: RdrNameHsBinds 
+	-> (RenamedHsBinds -> RnMS s (result, FreeVars))
+	-> RnMS s (result, FreeVars)
+
+rnHsType :: RdrNameHsType
+	 -> RnMS s RenamedHsType
 \end{code}