How do I write my own async wrapper?

Question

There is no F# async wrapper (in the PowerPack) for TcpListener.BeginAcceptTcpClient()/EndAcceptTcpClient(). How do I write my own wrapper around this so that I can use the let! and async keywords and run it in parallel?

Answer 1

Have you checked out the Async.BuildPrimitive function? I think you can do something like:

type TcpListener with
  member x.AsyncAcceptClient() = 
    Async.BuildPrimitive(x.BeginAcceptTcpClient, x.EndAcceptTcpClient)

to create an extension method returning an appropriate async result.