X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FhsSyn%2FHsExpr.lhs-boot;h=e0b4d047e704ebfff22f0ce5bbf2ce74d7ba8028;hb=c7517d84fe15a202029d5a77dfaf51c87e7e7234;hp=503701bf66e0eccb412617d12253ab245ec8a429;hpb=0065d5ab628975892cea1ec7303f968c3338cbe1;p=ghc-hetmet.git

diff --git a/compiler/hsSyn/HsExpr.lhs-boot b/compiler/hsSyn/HsExpr.lhs-boot
index 503701b..e0b4d04 100644
--- a/compiler/hsSyn/HsExpr.lhs-boot
+++ b/compiler/hsSyn/HsExpr.lhs-boot
@@ -13,6 +13,9 @@ data GRHSs a
 type LHsExpr a = Located (HsExpr a)
 type SyntaxExpr a = HsExpr a
 
+pprLExpr :: (OutputableBndr i) => 
+	LHsExpr i -> SDoc
+
 pprExpr :: (OutputableBndr i) => 
 	HsExpr i -> SDoc
 
@@ -22,6 +25,6 @@ pprSplice :: (OutputableBndr i) =>
 pprPatBind :: (OutputableBndr b, OutputableBndr i) => 
 	LPat b -> GRHSs i -> SDoc
 
-pprFunBind :: (OutputableBndr i) => 
-	i -> MatchGroup i -> SDoc
+pprFunBind :: (OutputableBndr idL, OutputableBndr idR) => 
+	idL -> Bool -> MatchGroup idR -> SDoc
 \end{code}