Add Data and Typeable instances to HsSyn

[ghc-hetmet.git] / compiler / hsSyn / HsExpr.lhs-boot

diff --git a/compiler/hsSyn/HsExpr.lhs-boot b/compiler/hsSyn/HsExpr.lhs-boot
index e0b4d04..272bdbd 100644 (file)
--- a/compiler/hsSyn/HsExpr.lhs-boot
+++ b/compiler/hsSyn/HsExpr.lhs-boot
@@ -4,12 +4,19 @@ 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