Indexed type defs are not declaring type names

[ghc-hetmet.git] / compiler / hsSyn / HsDecls.lhs

diff --git a/compiler/hsSyn/HsDecls.lhs b/compiler/hsSyn/HsDecls.lhs
index 8078e7a..2515c1a 100644 (file)
--- 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