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
_______________________________________________
Haskell-Cafe mailing list
[EMAIL PROTECTED]
http://www.haskell.org/mailman/listinfo/haskell-cafe
