- pprTrace "FloatOut stats: " (ppBesides [
- ppInt tlets, ppStr " Lets floated to top level; ",
- ppInt ntlets, ppStr " Lets floated elsewhere; from ",
- ppInt lams, ppStr " Lambda groups"])
+ pprTrace "FloatOut stats: " (hcat [
+ int tlets, ptext SLIT(" Lets floated to top level; "),
+ int ntlets, ptext SLIT(" Lets floated elsewhere; from "),
+ int lams, ptext SLIT(" Lambda groups")])