From 2540a99f8e67237f7fa9cd49143ae2cd9d7f84d6 Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Mon, 16 Oct 2000 16:34:34 +0000
Subject: [PATCH 1/1] [project @ 2000-10-16 16:34:33 by sewardj] Make compile.

---
 ghc/compiler/typecheck/TcBinds.lhs         |    4 ++--
 ghc/compiler/typecheck/TcExpr.hi-boot-5    |    4 ++--
 ghc/compiler/typecheck/TcMatches.hi-boot-5 |    8 ++++----
 3 files changed, 8 insertions(+), 8 deletions(-)

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