Ordre des arguments et opérateur de droite de tuyau

Question

Existe-t-il un moyen de simplifier ce qui suit, donc je n'aurai pas besoin d'une fonction runWithTimeout?

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

let processOneItem item = fetchAction item 
          |> runWithTimeout 2000 

Edit: Voici pourquoi je avais besoin la méthode supplémentaire:

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

Answer 1

Peut-être vous dire quelque chose comme ceci:

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

Answer 2

Voici un échantillon plus complet, pour référence future:

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

Answer 3

Je ne suis pas très désireux d'utiliser fun x -> ... dans le cadre d'un pipeline. Je pense que le style pipelining de l'écriture de code est agréable quand il est supporté par l'API (par exemple les listes), mais quand l'API ne correspond pas au style, il est juste préférable de suivre les habituels "C#" "style. De coures, c'est juste une préférence personnelle, mais je voudrais juste écrire:

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