- ; 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 ()