diff options
| author | Manuel M T Chakravarty <chak@cse.unsw.edu.au> | 2007-01-05 01:26:19 +0000 |
|---|---|---|
| committer | Manuel M T Chakravarty <chak@cse.unsw.edu.au> | 2007-01-05 01:26:19 +0000 |
| commit | e3dd39bf230380f02d73efc287226117bb2eb47f (patch) | |
| tree | 6813a9592df70fb2103045257de12a5f3abdb6ec /compiler/main/HscStats.lhs | |
| parent | 3548802de235eca280982270463db84910ee3748 (diff) | |
| download | haskell-e3dd39bf230380f02d73efc287226117bb2eb47f.tar.gz | |
HsSyn clean up for indexed types
- This patch cleans up the HsSyn representation of type family declarations.
- The new representation is not only less delicate, it also simplified teh code
a bit.
- I took the opportunity of stream lining the terminology and function names
at the same time.
- I also updated the description on the wiki at
<http://hackage.haskell.org/trac/ghc/wiki/TypeFunctionsSyntax>
Diffstat (limited to 'compiler/main/HscStats.lhs')
| -rw-r--r-- | compiler/main/HscStats.lhs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/main/HscStats.lhs b/compiler/main/HscStats.lhs index ee8717faf1..0327cce34e 100644 --- a/compiler/main/HscStats.lhs +++ b/compiler/main/HscStats.lhs @@ -38,10 +38,10 @@ ppSourceStats short (L _ (HsModule _ exports imports ldecls _ _ _ _)) ("FixityDecls ", fixity_sigs), ("DefaultDecls ", default_ds), ("TypeDecls ", type_ds), - ("TypeFunDecls ", type_fun_ds), - ("TypeEquations ", type_equs), ("DataDecls ", data_ds), ("NewTypeDecls ", newt_ds), + ("TypeFamilyDecls ", type_fam_ds), + ("FamilyInstDecls ", fam_inst_ds), ("DataConstrs ", data_constrs), ("DataDerivings ", data_derivs), ("ClassDecls ", class_ds), @@ -77,7 +77,7 @@ ppSourceStats short (L _ (HsModule _ exports imports ldecls _ _ _ _)) -- in class decls. ToDo tycl_decls = [d | TyClD d <- decls] - (class_ds, type_ds, type_fun_ds, type_equs, data_ds, newt_ds) = + (class_ds, type_ds, data_ds, newt_ds, type_fam_ds, fam_inst_ds) = countTyClDecls tycl_decls inst_decls = [d | InstD d <- decls] |