X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FdeSugar%2FMatch.lhs-boot;h=28f5136b1d88465a0971283d29b70ad28aeddc13;hp=5f99f5cc1ab7c05c3de30d7919782a7ec77495e8;hb=8133a9f47b99f4e65ed30551de32ad72c6b61b27;hpb=0065d5ab628975892cea1ec7303f968c3338cbe1

diff --git a/compiler/deSugar/Match.lhs-boot b/compiler/deSugar/Match.lhs-boot
index 5f99f5c..28f5136 100644
--- a/compiler/deSugar/Match.lhs-boot
+++ b/compiler/deSugar/Match.lhs-boot
@@ -1,14 +1,14 @@
 \begin{code}
 module Match where
 import Var	( Id )
-import TcType	( TcType )
+import TcType	( Type )
 import DsMonad	( DsM, EquationInfo, MatchResult )
 import CoreSyn	( CoreExpr )
 import HsSyn	( LPat, HsMatchContext, MatchGroup )
 import Name	( Name )
 
 match 	:: [Id]
-        -> TcType
+        -> Type
 	-> [EquationInfo]
 	-> DsM MatchResult
 
@@ -29,7 +29,7 @@ matchSinglePat
 	:: CoreExpr
 	-> HsMatchContext Name
 	-> LPat Id
-        -> TcType
+        -> Type
 	-> MatchResult
 	-> DsM MatchResult
 \end{code}