From: sof <unknown>
Date: Thu, 5 Jun 1997 19:48:56 +0000 (+0000)
Subject: [project @ 1997-06-05 19:48:56 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~417
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=d08e4e82f2ffce0af9c76cb138f6c7967c90f95f;p=ghc-hetmet.git

[project @ 1997-06-05 19:48:56 by sof]
Tidied up
---

diff --git a/ghc/compiler/typecheck/TcGRHSs.hi-boot b/ghc/compiler/typecheck/TcGRHSs.hi-boot
index 3ac4122..5434422 100644
--- a/ghc/compiler/typecheck/TcGRHSs.hi-boot
+++ b/ghc/compiler/typecheck/TcGRHSs.hi-boot
@@ -2,5 +2,7 @@ _interface_ TcGRHSs 1
 _exports_
 TcGRHSs tcGRHSsAndBinds;
 _declarations_
-1 tcGRHSsAndBinds _:_ _forall_ [a] => HsMatches.GRHSsAndBinds HsSyn.Fake HsSyn.Fake Name.Name (HsPat.InPat Name.Name) -> TcMonad.TcDown a -> TcEnv.TcEnv a -> GHC.State# a -> SST.FSST_R a (HsMatches.GRHSsAndBinds (TyVar.GenTyVar (ArrBase.MutableArray a PrelBase.Int (TcType.TcMaybe a))) Unique.Unique (TcHsSyn.TcIdOcc a) (HsPat.OutPat (TyVar.GenTyVar (ArrBase.MutableArray a PrelBase.Int (TcType.TcMaybe a))) Unique.Unique (TcHsSyn.TcIdOcc a)), Bag.Bag (Inst.Inst a), Type.GenType (TyVar.GenTyVar (ArrBase.MutableArray a PrelBase.Int (TcType.TcMaybe a))) Unique.Unique) PrelBase.() ;;
+1 tcGRHSsAndBinds _:_ _forall_ [s] => 
+		RnHsSyn.RenamedGRHSsAndBinds
+		-> TcMonad.TcM s (TcHsSyn.TcGRHSsAndBinds s, Inst.LIE s, TcType.TcType s) ;;