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

这个 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 
      () 
    }