X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FhsSyn%2FHsExpr.hi-boot-6;h=62b1306a9ebb980a726bca1abf91eee7fa1231e6;hb=5699ec476d64d48b7fcf6812238406e1eea91bef;hp=e16d32b78088cf487f045ced5ce59b413909cd2b;hpb=c02da7d1176d2165e7f9ec6f42752d456dd9fee2;p=ghc-hetmet.git

diff --git a/compiler/hsSyn/HsExpr.hi-boot-6 b/compiler/hsSyn/HsExpr.hi-boot-6
index e16d32b..62b1306 100644
--- a/compiler/hsSyn/HsExpr.hi-boot-6
+++ b/compiler/hsSyn/HsExpr.hi-boot-6
@@ -9,6 +9,9 @@ type LHsExpr a = SrcLoc.Located (HsExpr a)
 type SyntaxExpr a = HsExpr a
 type PostTcExpr = HsExpr Var.Id
 
+pprLExpr :: (Outputable.OutputableBndr i) => 
+	LHsExpr i -> Outputable.SDoc
+
 pprExpr :: (Outputable.OutputableBndr i) => 
 	HsExpr.HsExpr i -> Outputable.SDoc
 
@@ -18,5 +21,5 @@ pprSplice :: (Outputable.OutputableBndr i) =>
 pprPatBind :: (Outputable.OutputableBndr b, Outputable.OutputableBndr i) => 
 	HsPat.LPat b -> HsExpr.GRHSs i -> Outputable.SDoc
 
-pprFunBind :: (Outputable.OutputableBndr i) => 
-	i -> GHC.Base.Bool -> HsExpr.MatchGroup i -> Outputable.SDoc
+pprFunBind :: (Outputable.OutputableBndr idL, Outputable.OutputableBndr idR) => 
+	idL -> GHC.Base.Bool -> HsExpr.MatchGroup idR -> Outputable.SDoc