From d9948cdcac19633f68f387018b71296cbdf8809f Mon Sep 17 00:00:00 2001 From: Manuel M T Chakravarty Date: Mon, 18 Sep 2006 21:40:32 +0000 Subject: [PATCH] Indexed type defs are not declaring type names Tue Aug 8 19:27:31 EDT 2006 Manuel M T Chakravarty * Indexed type defs are not declaring type names --- compiler/hsSyn/HsDecls.lhs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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 -- 1.7.10.4