[project @ 2001-05-04 14:40:42 by simonpj]

[ghc-hetmet.git] / ghc / compiler / typecheck / TcGRHSs.hi-boot

diff --git a/ghc/compiler/typecheck/TcGRHSs.hi-boot b/ghc/compiler/typecheck/TcGRHSs.hi-boot
index 3ac4122..a88316f 100644 (file)
--- a/ghc/compiler/typecheck/TcGRHSs.hi-boot
+++ b/ghc/compiler/typecheck/TcGRHSs.hi-boot
@@ -1,6 +1,11 @@
-_interface_ TcGRHSs 1
+_interface_ TcGRHSs 2
 _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.() ;;
+2 tcGRHSsAndBinds _:_ _forall_ [s] => 
+               RnHsSyn.RenamedGRHSsAndBinds
+               -> TcMonad.TcType s
+               -> HsExpr.StmtCtxt
+               -> TcMonad.TcM s (TcHsSyn.TcGRHSsAndBinds s, Inst.LIE s) ;;
+