X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FdeSugar%2FMatch.lhs-boot;fp=ghc%2Fcompiler%2FdeSugar%2FMatch.lhs-boot;h=424838ec3109acd38eaaea60a639439cfe8e6265;hb=508a505e9853984bfdaa3ad855ae3fcbc6d31787;hp=0000000000000000000000000000000000000000;hpb=f9d8c8e0ab44b24d06b654d98543e8b39d4ebeca;p=ghc-hetmet.git

diff --git a/ghc/compiler/deSugar/Match.lhs-boot b/ghc/compiler/deSugar/Match.lhs-boot
new file mode 100644
index 0000000..424838e
--- /dev/null
+++ b/ghc/compiler/deSugar/Match.lhs-boot
@@ -0,0 +1,35 @@
+\begin{code}
+module Match where
+import Var	( Id )
+import TcType	( TcType )
+import DsMonad	( DsM, DsMatchContext, EquationInfo, MatchResult )
+import CoreSyn	( CoreExpr )
+import HsSyn	( LPat, HsMatchContext, MatchGroup )
+import Name	( Name )
+
+match 	:: [Id]
+        -> TcType
+	-> [EquationInfo]
+	-> DsM MatchResult
+
+matchWrapper
+	:: HsMatchContext Name
+        -> MatchGroup Id
+	-> DsM ([Id], CoreExpr)
+
+matchSimply
+	:: CoreExpr
+	-> HsMatchContext Name
+	-> LPat Id
+	-> CoreExpr
+	-> CoreExpr
+	-> DsM CoreExpr
+
+matchSinglePat
+	:: CoreExpr
+	-> DsMatchContext
+	-> LPat Id
+        -> TcType
+	-> MatchResult
+	-> DsM MatchResult
+\end{code}