Neil Mitchell wrote:
Perhaps:packString x = sum (map ord x) `seq` x Will give you what you need. That function should have the same strictness as the original packString.
Or alternatively the slightly less evil packString x = foldr (\ y ys -> y `seq` y : ys) [] x Tom _______________________________________________ Yhc mailing list [email protected] http://www.haskell.org/mailman/listinfo/yhc
