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

diff --git a/ghc/compiler/deSugar/Match.lhs-boot b/ghc/compiler/deSugar/Match.lhs-boot
index 424838e..5f99f5c 100644
--- a/ghc/compiler/deSugar/Match.lhs-boot
+++ b/ghc/compiler/deSugar/Match.lhs-boot
@@ -2,7 +2,7 @@
 module Match where
 import Var	( Id )
 import TcType	( TcType )
-import DsMonad	( DsM, DsMatchContext, EquationInfo, MatchResult )
+import DsMonad	( DsM, EquationInfo, MatchResult )
 import CoreSyn	( CoreExpr )
 import HsSyn	( LPat, HsMatchContext, MatchGroup )
 import Name	( Name )
@@ -27,7 +27,7 @@ matchSimply
 
 matchSinglePat
 	:: CoreExpr
-	-> DsMatchContext
+	-> HsMatchContext Name
 	-> LPat Id
         -> TcType
 	-> MatchResult