X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypecheck%2FTcMatches.hi-boot;h=446a9b2d109b1642acb1d71a7e7a7ff77337a652;hb=49c84dec1a5612852fb0f484e7dd3be0c99636f4;hp=593f18edccb829d22bcfee6f48ca10a1966e0e06;hpb=1c62b517711ac232a8024d91fd4b317a6804d28e;p=ghc-hetmet.git

diff --git a/ghc/compiler/typecheck/TcMatches.hi-boot b/ghc/compiler/typecheck/TcMatches.hi-boot
index 593f18e..446a9b2 100644
--- a/ghc/compiler/typecheck/TcMatches.hi-boot
+++ b/ghc/compiler/typecheck/TcMatches.hi-boot
@@ -3,14 +3,14 @@ _exports_
 TcMatches tcGRHSs tcMatchesFun;
 _declarations_
 2 tcGRHSs _:_ _forall_ [s] => 
-	      RnHsSyn.RenamedGRHSs
-	      -> TcMonad.TcType
-	      -> HsExpr.HsMatchContext
+	      HsExpr.HsMatchContext Name.Name
+	      -> RnHsSyn.RenamedGRHSs
+	      -> TcType.TcType
 	      -> TcMonad.TcM s (TcHsSyn.TcGRHSs, Inst.LIE) ;;
 3 tcMatchesFun _:_ _forall_ [s] => 
 		[(Name.Name,Var.Id)]
 	     ->	Name.Name
-	     -> TcMonad.TcType
+	     -> TcType.TcType
 	     -> [RnHsSyn.RenamedMatch]
 	     -> TcMonad.TcM s ([TcHsSyn.TcMatch], Inst.LIE) ;;