Print infix function definitions correctly in HsSyn

[ghc-hetmet.git] / compiler / typecheck / TcMatches.lhs-boot

diff --git a/compiler/typecheck/TcMatches.lhs-boot b/compiler/typecheck/TcMatches.lhs-boot
index 0afe7d2..e50949f 100644 (file)
--- 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 )
@@ -9,8 +9,8 @@ tcGRHSsPat    :: GRHSs Name
              -> BoxyRhoType
              -> TcM (GRHSs TcId)
 
-tcMatchesFun :: Name
+tcMatchesFun :: Name -> Bool
             -> MatchGroup Name
             -> BoxyRhoType
-            -> TcM (ExprCoFn, MatchGroup TcId)
+            -> TcM (HsWrapper, MatchGroup TcId)
 \end{code}