[Haskell-cafe] async simplify code

[grant weyburne]

Hi Cafe,

Is there any way to simplify this async code to somehow merge the withAsync
code
into the STM code? Looking at the code for tstABorCD it is not easy to see
that
it is really just (A&&B)||(C&&D). Here is the code:

http://lpaste.net/106945

Thanks for any pointers,
Grant
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://www.haskell.org/pipermail/haskell-cafe/attachments/20140704/5cf6c4d4/attachment.html>