[commit: ghc] master: Revert "Desugar: Display resulting program stats with -v2" (44a3c18)

git at git.haskell.org git at git.haskell.org
Wed Jun 8 08:53:10 UTC 2016


Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/44a3c18292a02d50a8237545a31562b5a5359773/ghc

>---------------------------------------------------------------

commit 44a3c18292a02d50a8237545a31562b5a5359773
Author: Ömer Sinan Ağacan <omeragacan at gmail.com>
Date:   Wed Jun 8 04:55:17 2016 -0400

    Revert "Desugar: Display resulting program stats with -v2"
    
    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.


>---------------------------------------------------------------

44a3c18292a02d50a8237545a31562b5a5359773
 compiler/deSugar/Desugar.hs | 6 ------
 1 file changed, 6 deletions(-)

diff --git a/compiler/deSugar/Desugar.hs b/compiler/deSugar/Desugar.hs
index 4ba9b6a..7ce0c6d 100644
--- a/compiler/deSugar/Desugar.hs
+++ b/compiler/deSugar/Desugar.hs
@@ -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)
         }}}}
 



More information about the ghc-commits mailing list