diff options
| -rw-r--r-- | compiler/hsSyn/HsDecls.lhs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/compiler/hsSyn/HsDecls.lhs b/compiler/hsSyn/HsDecls.lhs index 8078e7a2a8..2515c1af7a 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 |