4 Nov
2004
4 Nov
'04
2:03 a.m.
On Thu, Nov 04, 2004 at 09:48:47AM +0300, Alexander Kogan wrote:
Hi!
You can replace addToFM_C (+) a x 1 with let a' = addToFM_C (+) a x 1 in lookupFM a' x `seq` a'
it is not strict also.
How about this? let a' = addToFM_C (+) a x 1 in maybe () (`seq` ()) (lookupFM a' x) `seq` a' It worked for me. Best regards, Tom -- .signature: Too many levels of symbolic links