projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
4706dd5
)
Remove trace
author
simonpj@microsoft.com
<unknown>
Wed, 29 Nov 2006 22:52:43 +0000
(22:52 +0000)
committer
simonpj@microsoft.com
<unknown>
Wed, 29 Nov 2006 22:52:43 +0000
(22:52 +0000)
compiler/specialise/SpecConstr.lhs
patch
|
blob
|
history
diff --git
a/compiler/specialise/SpecConstr.lhs
b/compiler/specialise/SpecConstr.lhs
index
3876a44
..
92e4131
100644
(file)
--- a/
compiler/specialise/SpecConstr.lhs
+++ b/
compiler/specialise/SpecConstr.lhs
@@
-786,11
+786,11
@@
specialise env calls (fn, rhs, arg_occs)
[ exprsFreeVars pats `delVarSetList` vs
| (vs,pats) <- good_pats ]
uniq_pats = nubBy (same_pat in_scope) good_pats
[ exprsFreeVars pats `delVarSetList` vs
| (vs,pats) <- good_pats ]
uniq_pats = nubBy (same_pat in_scope) good_pats
- ; pprTrace "specialise" (vcat [ppr fn <+> ppr arg_occs,
- text "calls" <+> ppr all_calls,
- text "good pats" <+> ppr good_pats,
- text "uniq pats" <+> ppr uniq_pats]) $
- return ()
+-- ; pprTrace "specialise" (vcat [ppr fn <+> ppr arg_occs,
+-- text "calls" <+> ppr all_calls,
+-- text "good pats" <+> ppr good_pats,
+-- text "uniq pats" <+> ppr uniq_pats]) $
+-- return ()
; (rules, spec_prs) <- mapAndUnzipUs (spec_one fn rhs)
(uniq_pats `zip` [1..])
; (rules, spec_prs) <- mapAndUnzipUs (spec_one fn rhs)
(uniq_pats `zip` [1..])