- -- We do *not* seq on the unfolding info, For some reason, doing so
- -- actually increases residency significantly.
- = info { unfoldingInfo = uf }
+ = seqUnfolding uf `seq` -- This seq makes a BIG difference to Trac #4367
+ info { unfoldingInfo = uf }