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

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}