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

Make compile.

diff --git a/ghc/compiler/typecheck/TcBinds.lhs b/ghc/compiler/typecheck/TcBinds.lhs
index 971be99..a33e7f4 100644 (file)
--- a/ghc/compiler/typecheck/TcBinds.lhs
+++ b/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}
 

diff --git a/ghc/compiler/typecheck/TcExpr.hi-boot-5 b/ghc/compiler/typecheck/TcExpr.hi-boot-5
index a56c7bc..8bfce87 100644 (file)
--- a/ghc/compiler/typecheck/TcExpr.hi-boot-5
+++ b/ghc/compiler/typecheck/TcExpr.hi-boot-5
@@ -1,6 +1,6 @@
 __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) ;

diff --git a/ghc/compiler/typecheck/TcMatches.hi-boot-5 b/ghc/compiler/typecheck/TcMatches.hi-boot-5
index 4be7cbb..ee566f1 100644 (file)
--- a/ghc/compiler/typecheck/TcMatches.hi-boot-5
+++ b/ghc/compiler/typecheck/TcMatches.hi-boot-5
@@ -1,14 +1,14 @@
 __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) ;