[project @ 1998-12-02 13:17:09 by simonm]

[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..67c2805 100644 (file)
--- a/ghc/compiler/typecheck/TcGRHSs.hi-boot
+++ b/ghc/compiler/typecheck/TcGRHSs.hi-boot
@@ -1,6 +1,10 @@
-_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) ;;