X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FdeSugar%2FMatch.hi-boot-6;h=df806ec6449635b20656ab887de92bb2b65f91ab;hb=9512557e2ad1800146ff1931748cda283c267026;hp=abd5d2bc2f2983f5e92b9ee8b7fda45664c309cc;hpb=23f40f0e9be6d4aa5cf9ea31d73f4013f8e7b4bd;p=ghc-hetmet.git

diff --git a/ghc/compiler/deSugar/Match.hi-boot-6 b/ghc/compiler/deSugar/Match.hi-boot-6
index abd5d2b..df806ec 100644
--- a/ghc/compiler/deSugar/Match.hi-boot-6
+++ b/ghc/compiler/deSugar/Match.hi-boot-6
@@ -2,8 +2,8 @@ module Match where
 
 match 	:: [Var.Id]
         -> TcType.TcType
-	-> [DsUtils.EquationInfo]
-	-> DsMonad.DsM DsUtils.MatchResult
+	-> [DsMonad.EquationInfo]
+	-> DsMonad.DsM DsMonad.MatchResult
 
 matchWrapper
 	:: HsExpr.HsMatchContext Name.Name
@@ -12,7 +12,7 @@ matchWrapper
 
 matchSimply
 	:: CoreSyn.CoreExpr
-	-> HsExpr.HsMatchContext Var.Id
+	-> HsExpr.HsMatchContext Name.Name
 	-> HsPat.LPat Var.Id
 	-> CoreSyn.CoreExpr
 	-> CoreSyn.CoreExpr
@@ -20,8 +20,8 @@ matchSimply
 
 matchSinglePat
 	:: CoreSyn.CoreExpr
-	-> DsMonad.DsMatchContext
+	-> HsExpr.HsMatchContext Name.Name
 	-> HsPat.LPat Var.Id
         -> TcType.TcType
-	-> DsUtils.MatchResult
-	-> DsMonad.DsM DsUtils.MatchResult
+	-> DsMonad.MatchResult
+	-> DsMonad.DsM DsMonad.MatchResult