[project @ 2004-10-11 16:16:20 by simonpj]

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

diff --git a/ghc/compiler/typecheck/TcMatches.hi-boot b/ghc/compiler/typecheck/TcMatches.hi-boot
index fa47d4e..80f46b6 100644 (file)
--- a/ghc/compiler/typecheck/TcMatches.hi-boot
+++ b/ghc/compiler/typecheck/TcMatches.hi-boot
@@ -1,16 +1,14 @@
 _interface_ TcMatches 2
 _exports_
-TcMatches tcGRHSs tcMatchesFun;
+TcMatches tcGRHSsPat tcMatchesFun;
 _declarations_
-2 tcGRHSs _:_ _forall_ [s] => 
-             RnHsSyn.RenamedGRHSs
-             -> TcMonad.TcType
-             -> HsExpr.StmtCtxt
-             -> TcMonad.TcM s (TcHsSyn.TcGRHSs, Inst.LIE) ;;
+2 tcGRHSsPat _:_ _forall_ [s] => 
+                RnHsSyn.RenamedGRHSs
+             -> TcType.TcType
+             -> TcMonad.TcM s (TcHsSyn.TcGRHSs, TcMonad.LIE) ;;
 3 tcMatchesFun _:_ _forall_ [s] => 
-               [(Name.Name,Var.Id)]
-            -> Name.Name
-            -> TcMonad.TcType
+               Name.Name
+            -> TcType.TcType
             -> [RnHsSyn.RenamedMatch]
-            -> TcMonad.TcM s ([TcHsSyn.TcMatch], Inst.LIE) ;;
+            -> TcMonad.TcM s ([TcHsSyn.TcMatch], TcMonad.LIE) ;;