Unified API for making AsyncTask

[hyperthunk]

At the moment we have asyncDo but that's pretty ugly, leaving a default local spawn looking like this:

h <- async $ asyncDo $ do ..... 

Urgh. I suspect type synonym families might help here.

[hyperthunk]

merged changes to the async API solve this neatly enough.