Revert "Desugar: Display resulting program stats with -v2"
authorÖmer Sinan Ağacan <omeragacan@gmail.com>
Wed, 8 Jun 2016 08:55:17 +0000 (04:55 -0400)
committerÖmer Sinan Ağacan <omeragacan@gmail.com>
Wed, 8 Jun 2016 08:55:17 +0000 (04:55 -0400)
This reverts commit dd33245922a9d363bdb8c34d00ed4d1574bc5285.

It seems like we already have `endPassIO` calls here, which should print
term sizes. For some reason they don't sometimes, and we need to
understand why instead of adding more prints.

compiler/deSugar/Desugar.hs

index 4ba9b6a..7ce0c6d 100644 (file)
@@ -31,7 +31,6 @@ import Class
 import Avail
 import CoreSyn
 import CoreFVs( exprsSomeFreeVarsList )
-import CoreStats   ( coreBindsStats )
 import CoreSubst
 import PprCore
 import DsMonad
@@ -390,11 +389,6 @@ deSugar hsc_env
                 mg_safe_haskell = safe_mode,
                 mg_trust_pkg    = imp_trust_own_pkg imports
               }
-
-        ; debugTraceMsg dflags 2 $
-            sep [ text "Result size of Desugar"
-                , nest 2 (equals <+> ppr (coreBindsStats ds_binds)) ]
-
         ; return (msgs, Just mod_guts)
         }}}}