diff options
| author | Joachim Breitner <mail@joachim-breitner.de> | 2018-03-22 10:17:27 -0400 |
|---|---|---|
| committer | Joachim Breitner <mail@joachim-breitner.de> | 2018-03-22 10:18:15 -0400 |
| commit | 37402025062fab853b58f9e8f7404d9a19105448 (patch) | |
| tree | 95c99e1dfe6288366e0a3fa3475e0eff7193e3a2 /compiler | |
| parent | 0aa7d8796a95298e906ea81fe4a52590d75c2e47 (diff) | |
| download | haskell-wip/T14951.tar.gz | |
Add testcase for #14951wip/T14951
Diffstat (limited to 'compiler')
| -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 |