Tim Docker <t...@dockerz.net> writes:

>         mapM_ applyAction sas

Maybe you could try a lazy version of mapM?  E.g., I think this would do
it:

  import System.IO.Unsafe (unsafeInterleaveIO)

  :

  mapM' f = sequence' . map f
    where sequence' ms = foldr k (return []) ms
          k m m' = do { x <- m; xs <- unsafeInterleaveIO m'; return (x:xs) }

-k
-- 
If I haven't seen further, it is by standing in the footprints of giants

_______________________________________________
Haskell-Cafe mailing list
Haskell-Cafe@haskell.org
http://www.haskell.org/mailman/listinfo/haskell-cafe

Reply via email to