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

diff --git a/compiler/typecheck/TcMatches.lhs-boot b/compiler/typecheck/TcMatches.lhs-boot
index 0afe7d2..bb9fa66 100644
--- a/compiler/typecheck/TcMatches.lhs-boot
+++ b/compiler/typecheck/TcMatches.lhs-boot
@@ -1,6 +1,6 @@
 \begin{code}
 module TcMatches where
-import HsSyn	( GRHSs, MatchGroup, ExprCoFn )
+import HsSyn	( GRHSs, MatchGroup, HsWrapper )
 import Name	( Name )
 import TcType	( BoxyRhoType )
 import TcRnTypes( TcM, TcId )
@@ -12,5 +12,5 @@ tcGRHSsPat    :: GRHSs Name
 tcMatchesFun :: Name
 	     -> MatchGroup Name
 	     -> BoxyRhoType
-	     -> TcM (ExprCoFn, MatchGroup TcId)
+	     -> TcM (HsWrapper, MatchGroup TcId)
 \end{code}