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

diff --git a/compiler/hsSyn/HsExpr.lhs-boot b/compiler/hsSyn/HsExpr.lhs-boot
index b56ef47..272bdbd 100644
--- a/compiler/hsSyn/HsExpr.lhs-boot
+++ b/compiler/hsSyn/HsExpr.lhs-boot
@@ -4,15 +4,25 @@ module HsExpr where
 import SrcLoc	  ( Located )
 import Outputable ( SDoc, OutputableBndr )
 import {-# SOURCE #-} HsPat  ( LPat )
+
+import Data.Data
 	
 data HsExpr i
 data HsSplice i
 data MatchGroup a
 data GRHSs a
 
+instance Data i => Data (HsSplice i)
+instance Data i => Data (HsExpr i)
+instance Data i => Data (MatchGroup i)
+instance Data i => Data (GRHSs i)
+
 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 +32,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}