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

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

diff --git a/compiler/hsSyn/HsPat.lhs-boot b/compiler/hsSyn/HsPat.lhs-boot
index 5a8726f..7ba338e 100644 (file)
--- a/compiler/hsSyn/HsPat.lhs-boot
+++ b/compiler/hsSyn/HsPat.lhs-boot
@@ -7,5 +7,6 @@ import Data.Data
 data Pat i
 type LPat i = Located (Pat i)
 
+instance Typeable1 Pat
 instance Data i => Data (Pat i)
 \end{code}