X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FdeSugar%2FMatch.hi-boot-6;h=dcc479bed4bf24b01db6fe923ad38198d4277aff;hb=3721dd37a707d2aacb5cac814410a78096e28a2c;hp=2e4d2230895caaa9746b620503cb586c947f51eb;hpb=2cc5b907318f97e19b28b2ad8ed9ff8c1f401dcc;p=ghc-hetmet.git

diff --git a/ghc/compiler/deSugar/Match.hi-boot-6 b/ghc/compiler/deSugar/Match.hi-boot-6
index 2e4d223..dcc479b 100644
--- a/ghc/compiler/deSugar/Match.hi-boot-6
+++ b/ghc/compiler/deSugar/Match.hi-boot-6
@@ -1,6 +1,25 @@
-__interface Match 1 0 where
-__export Match match matchExport matchSimply matchSinglePat;
-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 ;
+module Match where
+
+match 	:: [Var.Id]
+	-> [DsUtils.EquationInfo]
+	-> DsMonad.DsM DsUtils.MatchResult
+
+matchExport
+	:: [Var.Id]
+	-> [DsUtils.EquationInfo]
+	-> DsMonad.DsM DsUtils.MatchResult
+
+matchSimply
+	:: CoreSyn.CoreExpr
+	-> HsExpr.HsMatchContext Var.Id
+	-> HsPat.LPat Var.Id
+	-> CoreSyn.CoreExpr
+	-> CoreSyn.CoreExpr
+	-> DsMonad.DsM CoreSyn.CoreExpr
+
+matchSinglePat
+	:: CoreSyn.CoreExpr
+	-> DsMonad.DsMatchContext
+	-> HsPat.LPat Var.Id
+	-> DsUtils.MatchResult
+	-> DsMonad.DsM DsUtils.MatchResult