diff options
| author | Manuel M T Chakravarty <chak@cse.unsw.edu.au> | 2006-09-18 21:40:32 +0000 |
|---|---|---|
| committer | Manuel M T Chakravarty <chak@cse.unsw.edu.au> | 2006-09-18 21:40:32 +0000 |
| commit | d9948cdcac19633f68f387018b71296cbdf8809f (patch) | |
| tree | 2c5d086b527d31d0dc3fb53911cc9dbe3d367ead | |
| parent | 00c8e4f56dff60984a892da9c976c080031a16b2 (diff) | |
| download | haskell-d9948cdcac19633f68f387018b71296cbdf8809f.tar.gz | |
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
| -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 |