X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FhsSyn%2FHsDecls.lhs;h=2515c1af7a78e2dbd120eb111223750511409d5f;hb=d9948cdcac19633f68f387018b71296cbdf8809f;hp=8078e7a2a86f1bc16334608161e87025179bb531;hpb=108361d05dfb0aa37871c2c6a4ddec45a1b68010;p=ghc-hetmet.git

diff --git a/compiler/hsSyn/HsDecls.lhs b/compiler/hsSyn/HsDecls.lhs
index 8078e7a..2515c1a 100644
--- a/compiler/hsSyn/HsDecls.lhs
+++ b/compiler/hsSyn/HsDecls.lhs
@@ -450,8 +450,9 @@ isKindSigDecl other                              = False
 
 -- definition of an instance of an indexed type
 isIdxTyDecl tydecl
-   | isSynDecl tydecl || isDataDecl tydecl = isJust (tcdTyPats tydecl)
-   | otherwise				   = False
+   | isTEqnDecl tydecl = True
+   | isDataDecl tydecl = isJust (tcdTyPats tydecl)
+   | otherwise	       = False
 \end{code}
 
 Dealing with names