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 f5d250e..7ba338e 100644 (file)
--- a/compiler/hsSyn/HsPat.lhs-boot
+++ b/compiler/hsSyn/HsPat.lhs-boot
@@ -1,10 +1,12 @@
 \begin{code}
 module HsPat where
-import SrcLoc( Located, SrcSpan )
-import FastString ( FastString )
+import SrcLoc( Located )
 
-data HsQuasiQuote i = HsQuasiQuote i i SrcSpan FastString
+import Data.Data
 
 data Pat i
 type LPat i = Located (Pat i)
+
+instance Typeable1 Pat
+instance Data i => Data (Pat i)
 \end{code}