diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-11-03 09:39:34 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-11-04 08:43:50 +0000 |
| commit | 3b54113ddb67e8b23865798b71bd0bed09b5bba9 (patch) | |
| tree | fb81c6c6ef8ee97921f4e687983764263f5ca12c | |
| parent | b41d625db9322fb9c8dfed3508773e3ed86136d6 (diff) | |
| download | haskell-3b54113ddb67e8b23865798b71bd0bed09b5bba9.tar.gz | |
disable debugging trace
| -rw-r--r-- | compiler/deSugar/Coverage.lhs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/deSugar/Coverage.lhs b/compiler/deSugar/Coverage.lhs index 117e1deb3b..fc28b147fb 100644 --- a/compiler/deSugar/Coverage.lhs +++ b/compiler/deSugar/Coverage.lhs @@ -254,7 +254,8 @@ addTickLHsBind (L pos (funBind@(FunBind { fun_id = (L _ id) }))) = do let simple = isSimplePatBind funBind toplev = null decl_path exported = idName id `elemNameSet` exported_names - inline = pprTrace "inline" (ppr id <+> ppr (idInlinePragma id)) $ isAnyInlinePragma (idInlinePragma id) + inline = {- pprTrace "inline" (ppr id <+> ppr (idInlinePragma id)) $ -} + isAnyInlinePragma (idInlinePragma id) tick <- if not blackListed && shouldTickBind density toplev exported simple inline |