Indexed type defs are not declaring type names

Tue Aug  8 19:27:31 EDT 2006  Manuel M T Chakravarty <chak@cse.unsw.edu.au>
  * Indexed type defs are not declaring type names

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