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

diff --git a/compiler/typecheck/TcMatches.lhs-boot b/compiler/typecheck/TcMatches.lhs-boot
index bb9fa66..e50949f 100644
--- a/compiler/typecheck/TcMatches.lhs-boot
+++ b/compiler/typecheck/TcMatches.lhs-boot
@@ -9,7 +9,7 @@ tcGRHSsPat    :: GRHSs Name
 	      -> BoxyRhoType
 	      -> TcM (GRHSs TcId)
 
-tcMatchesFun :: Name
+tcMatchesFun :: Name -> Bool
 	     -> MatchGroup Name
 	     -> BoxyRhoType
 	     -> TcM (HsWrapper, MatchGroup TcId)