X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FhsSyn%2FHsExpr.lhs-boot;h=e0b4d047e704ebfff22f0ce5bbf2ce74d7ba8028;hp=b56ef47231614efce691c10a561224a58a1eb0c6;hb=6a05ec5ef5373f61b7f9f5bdc344483417fa801b;hpb=6202305819577fce2b11ab509ed94422775df30e

diff --git a/compiler/hsSyn/HsExpr.lhs-boot b/compiler/hsSyn/HsExpr.lhs-boot
index b56ef47..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 -> Bool -> MatchGroup i -> SDoc
+pprFunBind :: (OutputableBndr idL, OutputableBndr idR) => 
+	idL -> Bool -> MatchGroup idR -> SDoc
 \end{code}