[project @ 2000-10-16 16:34:33 by sewardj]

Make compile.

ghc/compiler/typecheck/TcBinds.lhs

@@ -4,7 +4,7 @@
 \section[TcBinds]{TcBinds}
 
 \begin{code}
-module TcBinds ( tcBindsAndThen, tcTopBinds,y
+module TcBinds ( tcBindsAndThen, tcTopBinds,
 	         tcSpecSigs, tcBindWithSigs ) where
 
 #include "HsVersions.h"
@@ -58,7 +58,7 @@ import Util		( isIn )
 import Maybes		( maybeToBool )
 import BasicTypes	( TopLevelFlag(..), RecFlag(..), isNotTopLevel )
 import FiniteMap	( listToFM, lookupFM )
-import PrelNames	( ioTyConKey, mainKey, hasKey )
+import PrelNames	( ioTyConName, mainKey, hasKey )
 import Outputable
 \end{code}
 

ghc/compiler/typecheck/TcExpr.hi-boot-5

 __interface TcExpr 1 0 where
 __export TcExpr tcExpr ;
-1 tcExpr :: __forall [s] => 
+1 tcExpr :: 
 	  RnHsSyn.RenamedHsExpr
        -> TcMonad.TcType
-       -> TcMonad.TcM s (TcHsSyn.TcExpr, Inst.LIE) ;
+       -> TcMonad.TcM (TcHsSyn.TcExpr, Inst.LIE) ;

ghc/compiler/typecheck/TcMatches.hi-boot-5

 __interface TcMatches 1 0 where
 __export TcMatches tcGRHSs tcMatchesFun;
-1 tcGRHSs :: __forall [s] => 
+1 tcGRHSs :: 
 	      RnHsSyn.RenamedGRHSs
 	      -> TcMonad.TcType
 	      -> HsExpr.StmtCtxt
-	      -> TcMonad.TcM s (TcHsSyn.TcGRHSs, Inst.LIE) ;
-1 tcMatchesFun :: __forall [s] => 
+	      -> TcMonad.TcM (TcHsSyn.TcGRHSs, Inst.LIE) ;
+1 tcMatchesFun :: 
 		[(Name.Name,Var.Id)]
 	     ->	Name.Name
 	     -> TcMonad.TcType
 	     -> [RnHsSyn.RenamedMatch]
-	     -> TcMonad.TcM s ([TcHsSyn.TcMatch], Inst.LIE) ;
+	     -> TcMonad.TcM ([TcHsSyn.TcMatch], Inst.LIE) ;