Commit dd332459 authored by Ömer Sinan Ağacan's avatar Ömer Sinan Ağacan
Browse files

Desugar: Display resulting program stats with -v2

Reviewers: austin, bgamari

Reviewed By: bgamari

Subscribers: thomie

Differential Revision: https://phabricator.haskell.org/D2310
parent d4b548ef
......@@ -31,6 +31,7 @@ import Class
import Avail
import CoreSyn
import CoreFVs( exprsSomeFreeVarsList )
import CoreStats ( coreBindsStats )
import CoreSubst
import PprCore
import DsMonad
......@@ -389,6 +390,11 @@ 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)
}}}}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment