diff options
| author | Dr. ERDI Gergo <gergo@erdi.hu> | 2014-04-12 19:36:31 +0800 |
|---|---|---|
| committer | Dr. ERDI Gergo <gergo@erdi.hu> | 2014-04-13 16:40:59 +0800 |
| commit | eeaea2df3fa585db503034f419c6e4331a4d8a84 (patch) | |
| tree | 707a2ccc7ca5b189a1b45c6e6b3688098ba31d09 /compiler/main/HscStats.hs | |
| parent | 7fa0b43593644fba8a3a60e5503a55268578d3c0 (diff) | |
| download | haskell-eeaea2df3fa585db503034f419c6e4331a4d8a84.tar.gz | |
Instead of tracking Origin in LHsBindsLR, track it in MatchGroup
Diffstat (limited to 'compiler/main/HscStats.hs')
| -rw-r--r-- | compiler/main/HscStats.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/main/HscStats.hs b/compiler/main/HscStats.hs index 715ee8130c..4f901b1849 100644 --- a/compiler/main/HscStats.hs +++ b/compiler/main/HscStats.hs @@ -132,7 +132,7 @@ ppSourceStats short (L _ (HsModule _ exports imports ldecls _ _)) class_info decl@(ClassDecl {}) = (classops, addpr (sum3 (map count_bind methods))) where - methods = map (unLoc . snd) $ bagToList (tcdMeths decl) + methods = map unLoc $ bagToList (tcdMeths decl) (_, classops, _, _, _) = count_sigs (map unLoc (tcdSigs decl)) class_info _ = (0,0) @@ -147,7 +147,7 @@ ppSourceStats short (L _ (HsModule _ exports imports ldecls _ _)) (addpr (sum3 (map count_bind methods)), ss, is, length ats, length adts) where - methods = map (unLoc . snd) $ bagToList inst_meths + methods = map unLoc $ bagToList inst_meths -- TODO: use Sum monoid addpr :: (Int,Int,Int) -> Int |