| 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
_______________________________________________
Glasgow-haskell-users mailing list
Glasgow-haskell-users@haskell.org
http://www.haskell.org/mailman/listinfo/glasgow-haskell-users
