diff options
Diffstat (limited to 'compiler/specialise/SpecConstr.hs')
| -rw-r--r-- | compiler/specialise/SpecConstr.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/specialise/SpecConstr.hs b/compiler/specialise/SpecConstr.hs index ab2490e935..343ff1cf90 100644 --- a/compiler/specialise/SpecConstr.hs +++ b/compiler/specialise/SpecConstr.hs @@ -1763,13 +1763,13 @@ extraPatUsages env body_calls si = combineUsages | os <- si_specs si , let fn = os_orig_id os call_pat = os_pat os - , pprTrace "add_pat_usages" (ppr fn <+> ppr call_pat) True + -- , pprTrace "add_pat_usages" (ppr fn <+> ppr call_pat) True , call <- fromMaybe [] $ lookupVarEnv body_calls fn ] patToCallUsage :: ScEnv -> CallPat -> Call -> ScUsage patToCallUsage env (_qvars, pats) (Call _ args _) - = pprTrace "patToCallUsage" (ppr pats <+> ppr args <+> ppr usage) $ + = -- pprTrace "patToCallUsage" (ppr pats <+> ppr args <+> ppr usage) $ usage where usage = combineUsages $ zipWith go pats args |