diff options
| author | simonpj <unknown> | 2000-12-19 17:32:45 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 2000-12-19 17:32:45 +0000 |
| commit | 5a763550bf31ce446812d89f4967b601f122d344 (patch) | |
| tree | cbb87ba07cbd5cb7de788e0f583b04aadb75e708 /ghc/compiler/hsSyn/HsDecls.lhs | |
| parent | 772e0d3f0cf19d52b199e61afc8bbf2ee4c5281f (diff) | |
| download | haskell-5a763550bf31ce446812d89f4967b601f122d344.tar.gz | |
[project @ 2000-12-19 17:32:44 by simonpj]
Mainly rename rnDecl to rnSourceDecl; and add more tracing to renamer
Diffstat (limited to 'ghc/compiler/hsSyn/HsDecls.lhs')
| -rw-r--r-- | ghc/compiler/hsSyn/HsDecls.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/compiler/hsSyn/HsDecls.lhs b/ghc/compiler/hsSyn/HsDecls.lhs index bb5404ed71..58c14b9676 100644 --- a/ghc/compiler/hsSyn/HsDecls.lhs +++ b/ghc/compiler/hsSyn/HsDecls.lhs @@ -261,7 +261,7 @@ tyClDeclSysNames :: TyClDecl name pat -> [(name, SrcLoc)] -- Similar to tyClDeclNames, but returns the "implicit" -- or "system" names of the declaration -tyClDeclSysNames (ClassDecl {tcdSysNames = names, tcdLoc = loc, tcdSigs = sigs}) +tyClDeclSysNames (ClassDecl {tcdSysNames = names, tcdLoc = loc}) = [(n,loc) | n <- names] tyClDeclSysNames (TyData {tcdCons = cons, tcdSysNames = names, tcdLoc = loc}) = [(n,loc) | n <- names] ++ |