[Haskell] Expecting more inlining for bit shifting

[Simon Peyton-Jones]

| I might point out that the current code would throw out those
discounts (the
| nukeSrutDiscounts in that case).

Ah yes.  I've forgotten why nukeScrutDiscounts is there.  If you have
	f x = let y = case x of ...
		in ...
then the nukeScrutDiscount will avoid giving a discount to x.   I'm not
sure why... if supplying a value for x made the function very small (by
making a big case shrink) then it deserves its discount.

Simon