projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Symbolic tags for simplifier phases
[ghc-hetmet.git]
/
compiler
/
main
/
HscStats.lhs
diff --git
a/compiler/main/HscStats.lhs
b/compiler/main/HscStats.lhs
index
5ceef37
..
188b4f3
100644
(file)
--- a/
compiler/main/HscStats.lhs
+++ b/
compiler/main/HscStats.lhs
@@
-4,6
+4,13
@@
\section[GHC_Stats]{Statistics for per-module compilations}
\begin{code}
\section[GHC_Stats]{Statistics for per-module compilations}
\begin{code}
+{-# OPTIONS -w #-}
+-- The above warning supression flag is a temporary kludge.
+-- While working on this module you are encouraged to remove it and fix
+-- any warnings in the module. See
+-- http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings
+-- for details
+
module HscStats ( ppSourceStats ) where
#include "HsVersions.h"
module HscStats ( ppSourceStats ) where
#include "HsVersions.h"
@@
-23,7
+30,7
@@
import Util ( count )
%************************************************************************
\begin{code}
%************************************************************************
\begin{code}
-ppSourceStats short (L _ (HsModule _ exports imports ldecls _))
+ppSourceStats short (L _ (HsModule _ exports imports ldecls _ _ _))
= (if short then hcat else vcat)
(map pp_val
[("ExportAll ", export_all), -- 1 if no export list
= (if short then hcat else vcat)
(map pp_val
[("ExportAll ", export_all), -- 1 if no export list
@@
-38,10
+45,10
@@
ppSourceStats short (L _ (HsModule _ exports imports ldecls _))
("FixityDecls ", fixity_sigs),
("DefaultDecls ", default_ds),
("TypeDecls ", type_ds),
("FixityDecls ", fixity_sigs),
("DefaultDecls ", default_ds),
("TypeDecls ", type_ds),
- ("TypeFunDecls ", type_fun_ds),
- ("TypeEquations ", type_equs),
("DataDecls ", data_ds),
("NewTypeDecls ", newt_ds),
("DataDecls ", data_ds),
("NewTypeDecls ", newt_ds),
+ ("TypeFamilyDecls ", type_fam_ds),
+ ("FamilyInstDecls ", fam_inst_ds),
("DataConstrs ", data_constrs),
("DataDerivings ", data_derivs),
("ClassDecls ", class_ds),
("DataConstrs ", data_constrs),
("DataDerivings ", data_derivs),
("ClassDecls ", class_ds),
@@
-77,7
+84,7
@@
ppSourceStats short (L _ (HsModule _ exports imports ldecls _))
-- in class decls. ToDo
tycl_decls = [d | TyClD d <- decls]
-- 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]
countTyClDecls tycl_decls
inst_decls = [d | InstD d <- decls]