From: sof <unknown>
Date: Sat, 26 Jul 1997 03:29:32 +0000 (+0000)
Subject: [project @ 1997-07-26 03:29:32 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~205
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=85bd8439c9b9663656d2b07bc4737f72b4c10e2b;p=ghc-hetmet.git

[project @ 1997-07-26 03:29:32 by sof]
updated
---

diff --git a/ghc/compiler/typecheck/TcLoop.lhi b/ghc/compiler/typecheck/TcLoop.lhi
index bdf0d5d..91302df 100644
--- a/ghc/compiler/typecheck/TcLoop.lhi
+++ b/ghc/compiler/typecheck/TcLoop.lhi
@@ -8,8 +8,7 @@ import TcGRHSs( tcGRHSsAndBinds )
 import HsMatches(GRHSsAndBinds)
 import HsPat(InPat, OutPat)
 import HsSyn(Fake)
-import TcHsSyn(TcIdOcc)
-import TcType(TcMaybe)
+import TcType(TcIdOcc, TcMaybe)
 import SST(FSST_R)
 import Unique(Unique)
 import Name(Name)
@@ -21,7 +20,8 @@ import Bag(Bag)
 import Type(GenType)
 import Inst(Inst)
 
-tcGRHSsAndBinds :: GRHSsAndBinds Fake Fake Name (InPat Name) 
+tcGRHSsAndBinds :: GenType (GenTyVar (_MutableArray a Int (TcMaybe a))) Unique
+		-> GRHSsAndBinds Fake Fake Name (InPat Name) 
 	        -> TcDown a 
 		-> TcEnv a 
 		-> State# a 
@@ -31,8 +31,7 @@ tcGRHSsAndBinds :: GRHSsAndBinds Fake Fake Name (InPat Name)
 					   (OutPat (GenTyVar (_MutableArray a Int (TcMaybe a))) 
 						   Unique 
 						   (TcIdOcc a)),
-			     Bag (Inst a),
-			     GenType (GenTyVar (_MutableArray a Int (TcMaybe a))) Unique
+			     Bag (Inst a)
 			    )
 			    ()
 \end{code}