Hello Neil, Wednesday, April 8, 2009, 3:25:51 PM, you wrote:
> I've attached a revised implementation. With my benchmark it gives a > stack overflow: it may be in replicate. check with let incRef = atomicModifyIORef r (\a -> (a,a)) > As a side note, it's necessary to add parallelStop, to kill all the > threads - or you get thread blocked exceptions being raised. alternatively, you can catch this exception in addWorker -- Best regards, Bulat mailto:[email protected] _______________________________________________ Haskell-Cafe mailing list [email protected] http://www.haskell.org/mailman/listinfo/haskell-cafe
