From: sewardj <unknown>
Date: Mon, 16 Oct 2000 16:34:34 +0000 (+0000)
Subject: [project @ 2000-10-16 16:34:33 by sewardj]
X-Git-Tag: Approximately_9120_patches~3558
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=2540a99f8e67237f7fa9cd49143ae2cd9d7f84d6;p=ghc-hetmet.git

[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
--- 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
--- 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
--- 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) ;