replace several 'fromJust's with 'expectJust's

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

diff --git a/ghc/compiler/typecheck/TcMatches.hi-boot-5 b/ghc/compiler/typecheck/TcMatches.hi-boot-5
index 881a6cf..43e2330 100644 (file)
--- a/ghc/compiler/typecheck/TcMatches.hi-boot-5
+++ b/ghc/compiler/typecheck/TcMatches.hi-boot-5
@@ -1,13 +1,10 @@
 __interface TcMatches 1 0 where
-__export TcMatches tcGRHSs tcMatchesFun;
-1 tcGRHSs ::  HsExpr.HsMatchContext Name.Name
-             -> RnHsSyn.RenamedGRHSs
-             -> TcType.TcType
-             -> TcRnTypes.TcM TcHsSyn.TcGRHSs ;
-1 tcMatchesFun :: 
-               [(Name.Name,Var.Id)]
-            -> Name.Name
-            -> TcType.TcType
-            -> [RnHsSyn.RenamedMatch]
-            -> TcRnTypes.TcM [TcHsSyn.TcMatch] ;
+__export TcMatches tcGRHSsPat tcMatchesFun;
+1 tcGRHSsPat  :: HsExpr.GRHSs Name.Name
+             -> TcUnify.Expected TcType.TcType
+             -> TcRnTypes.TcM (HsExpr.GRHSs Var.Id) ;
 
+1 tcMatchesFun :: Name.Name
+            -> [HsExpr.LMatch Name.Name]
+            -> TcUnify.Expected TcType.TcType
+            -> TcRnTypes.TcM [HsExpr.LMatch Var.Id] ;