f# - 引数の順序と右パイプ演算子

Question

以下を単純化する方法はありますか? runWithTimeout 関数は必要ありませんか?

let runWithTimeout timeout computation =
   Async.RunSynchronously(computation, timeout)

let processOneItem item =  fetchAction item
                           |> runWithTimeout 2000

編集：追加の方法が必要な理由は次のとおりです。

let processOneItem item =  fetchAction item
                           |> Async.Catch
                           |> runWithTimeout 2000
                           |> handleExceptions

Answer 1

私はfun x -> ...パイプラインの一部として使用することにあまり熱心ではありません。

コードを書くパイプラインスタイルは、API（リストなど）でサポートされている場合は良いと思いますが、APIがスタイルに適合しない場合は、通常の「C＃のような」スタイルに従う方がよいでしょう。当然のことながら、これは個人的な好みですが、私は次のように書きます。

let processOneItem item =  
  let work = Async.Catch(fetchAction item)
  let result = Async.RunSynchronously(work, 30000)
  handleExceptions result

Answer 2

おそらく、次のような意味です。

let processOneItem item =
  fetchAction item
  |> fun x -> Async.RunSynchronously(x, 2000)

Answer 3

将来の参考のために、より完全なサンプルを次に示します。

let processOneItem item =  fetchAction item
                           |> Async.Catch
                           |> fun x -> Async.RunSynchronously(x,30000)
                           |> handleExceptions