如何忽略异步块中Async函数的返回值？

Question

以下函数中的m1和m2存在编译错误。

let m p = async { return p * 2 }
let m1 () = async { do! m 2 } // ERR: was expected 'int' but here has type 'unit'
let m2 () = async { do! m 2 |> ignore } // ERR: expecting 'Async<int>->Async<'a>' but given 'Async<int>->unit'

在最后一行调用

m。如何忽略其回报价值？以下是唯一的方法（将由编译器优化执行吗？）？

let m1 () = 
    async { 
      let! x = m 2 
      () 
    }

Answer 1

您可以使用Async.Ignore：

let m1 () = async { do! m 2 |> Async.Ignore }

来自文档：

  

Async.Ignore创建一个运行给定计算的异步计算，并忽略其结果。