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

diff --git a/compiler/hsSyn/HsExpr.lhs-boot b/compiler/hsSyn/HsExpr.lhs-boot
index e0b4d04..ccae210 100644
--- a/compiler/hsSyn/HsExpr.lhs-boot
+++ b/compiler/hsSyn/HsExpr.lhs-boot
@@ -4,12 +4,23 @@ 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 Typeable1 HsSplice
+instance Data i => Data (HsSplice i)
+instance Typeable1 HsExpr
+instance Data i => Data (HsExpr i)
+instance Typeable1 MatchGroup
+instance Data i => Data (MatchGroup i)
+instance Typeable1 GRHSs
+instance Data i => Data (GRHSs i)
+
 type LHsExpr a = Located (HsExpr a)
 type SyntaxExpr a = HsExpr a