From: Manuel M T Chakravarty <chak@cse.unsw.edu.au>
Date: Mon, 18 Sep 2006 21:40:32 +0000 (+0000)
Subject: Indexed type defs are not declaring type names
X-Git-Tag: After_FC_branch_merge~109
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=d9948cdcac19633f68f387018b71296cbdf8809f

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
--- 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