¿Cómo escribo mi propio contenedor asíncrono para TcpListener?

Question

No hay contenedor asíncrono F # (en el PowerPack) para TcpListener.BeginAcceptTcpClient() ni EndAcceptTcpClient().

¿Cómo escribo mi propio envoltorio alrededor de estos, para que pueda usar las palabras clave let! y async y ejecutarlo en paralelo?

Answer 1

¿Ha comprobado la función Async.BuildPrimitive? Creo que puede hacer algo como:

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

para crear un método de extensión que devuelva un resultado asíncrono apropiado.