import UniqSupply ( UniqSupply )
import List ( partition )
import Outputable
+import FastString
\end{code}
-----------------
-- them into floating_defns (which would mean testing for
-- inlineCtxt at every let)
(fs, [], Note InlineMe (install floating_defns expr')) }
- -- See Note [FloatOut inside INLINE]
+ -- See Note [FloatOut inside INLINE] in SetLevels
-- I'm guessing that floating_dens should be empty
floatExpr lvl (Note note expr) -- Other than SCCs