Fix recursive superclasses (again). Fixes Trac #4809.

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

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