X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FdeSugar%2FMatch.hi-boot;h=f069e9137e0c6a81a82f13af64e40d68bab33d37;hb=95581e0c3b2d4d6edd33fdd6e135aa3917072c4c;hp=f499b052c54b087d9eda332c477566583959564f;hpb=8faf32ad72884534f39e7f29895173203b8c9fd2;p=ghc-hetmet.git

diff --git a/ghc/compiler/deSugar/Match.hi-boot b/ghc/compiler/deSugar/Match.hi-boot
index f499b05..f069e91 100644
--- a/ghc/compiler/deSugar/Match.hi-boot
+++ b/ghc/compiler/deSugar/Match.hi-boot
@@ -1,7 +1,9 @@
 _interface_ Match 1
 _exports_
-Match match matchExport matchSimply;
+Match match matchExport matchSimply matchSinglePat;
 _declarations_
-1 match _:_ [Id.Id] -> [DsUtils.EquationInfo] -> DsMonad.DsM DsUtils.MatchResult ;;
-1 matchExport _:_ [Id.Id] -> [DsUtils.EquationInfo] -> DsMonad.DsM DsUtils.MatchResult ;;
-1 matchSimply _:_ CoreSyn.CoreExpr -> DsMonad.DsMatchKind -> TcHsSyn.TypecheckedPat -> Type.Type -> CoreSyn.CoreExpr -> CoreSyn.CoreExpr -> DsMonad.DsM CoreSyn.CoreExpr ;;
+1 match _:_ [Var.Id] -> [DsUtils.EquationInfo] -> DsMonad.DsM DsUtils.MatchResult ;;
+1 matchExport _:_ [Var.Id] -> [DsUtils.EquationInfo] -> DsMonad.DsM DsUtils.MatchResult ;;
+1 matchSimply _:_ CoreSyn.CoreExpr -> HsExpr.HsMatchContext Var.Id -> TcHsSyn.TypecheckedPat -> CoreSyn.CoreExpr -> CoreSyn.CoreExpr -> DsMonad.DsM CoreSyn.CoreExpr ;;
+1 matchSinglePat _:_ CoreSyn.CoreExpr -> DsMonad.DsMatchContext -> TcHsSyn.TypecheckedPat -> DsUtils.MatchResult -> DsMonad.DsM DsUtils.MatchResult ;;
+