[project @ 2003-04-17 07:13:54 by simonpj]

Update hi-boot files

diff --git a/ghc/compiler/typecheck/TcExpr.hi-boot-5 b/ghc/compiler/typecheck/TcExpr.hi-boot-5
index 8e95ff1..017d27d 100644 (file)
--- a/ghc/compiler/typecheck/TcExpr.hi-boot-5
+++ b/ghc/compiler/typecheck/TcExpr.hi-boot-5
@@ -1,10 +1,14 @@
 __interface TcExpr 1 0 where
-__export TcExpr tcExpr tcMonoExpr ;
-1 tcExpr :: 
+__export TcExpr tcCheckSigma tcCheckRho tcMonoExpr ;
+1 tcCheckSigma :: 
          RnHsSyn.RenamedHsExpr
        -> TcType.TcType
        -> TcRnTypes.TcM TcHsSyn.TcExpr ;
-1 tcMonoExpr :: 
+1 tcCheckRho :: 
          RnHsSyn.RenamedHsExpr
        -> TcType.TcType
        -> TcRnTypes.TcM TcHsSyn.TcExpr ;
+1 tcMonoExpr :: 
+         RnHsSyn.RenamedHsExpr
+       -> TcUnify.Expected TcType.TcType
+       -> TcRnTypes.TcM TcHsSyn.TcExpr ;

diff --git a/ghc/compiler/typecheck/TcMatches.hi-boot-5 b/ghc/compiler/typecheck/TcMatches.hi-boot-5
index 3ab2fb8..726424b 100644 (file)
--- a/ghc/compiler/typecheck/TcMatches.hi-boot-5
+++ b/ghc/compiler/typecheck/TcMatches.hi-boot-5
@@ -2,11 +2,11 @@ __interface TcMatches 1 0 where
 __export TcMatches tcGRHSs tcMatchesFun;
 1 tcGRHSs ::  HsExpr.HsMatchContext Name.Name
              -> RnHsSyn.RenamedGRHSs
-             -> TcType.TcType
+             -> TcUnify.Expected TcType.TcType
              -> TcRnTypes.TcM TcHsSyn.TcGRHSs ;
 1 tcMatchesFun :: 
                Name.Name
-            -> TcType.TcType
             -> [RnHsSyn.RenamedMatch]
+            -> TcUnify.Expected TcType.TcType
             -> TcRnTypes.TcM [TcHsSyn.TcMatch] ;