X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcMatches.lhs-boot;h=8d0fba26997ea515f2f219c526119a83361551d0;hp=bb9fa66c98db2b27d324ac2abbf72dacca6bcaf2;hb=c648345e3d82c0c40333bfd8ddea2633e21b08dc;hpb=e6d057711f4d6d6ff6342c39fa2b9e44d25447f1

diff --git a/compiler/typecheck/TcMatches.lhs-boot b/compiler/typecheck/TcMatches.lhs-boot
index bb9fa66..8d0fba2 100644
--- a/compiler/typecheck/TcMatches.lhs-boot
+++ b/compiler/typecheck/TcMatches.lhs-boot
@@ -2,15 +2,15 @@
 module TcMatches where
 import HsSyn	( GRHSs, MatchGroup, HsWrapper )
 import Name	( Name )
-import TcType	( BoxyRhoType )
+import TcType	( TcRhoType )
 import TcRnTypes( TcM, TcId )
 
 tcGRHSsPat    :: GRHSs Name
-	      -> BoxyRhoType
+	      -> TcRhoType
 	      -> TcM (GRHSs TcId)
 
-tcMatchesFun :: Name
+tcMatchesFun :: Name -> Bool
 	     -> MatchGroup Name
-	     -> BoxyRhoType
+	     -> TcRhoType
 	     -> TcM (HsWrapper, MatchGroup TcId)
 \end{code}