Simple F# function that returns an asynchronous function that may inject chaos

chaos3.fsx

// inspired by https://www.youtube.com/watch?v=RWyZkNzvC-c&t=553s
// $ dotnet fsi chaos3.fsx
// latency test
// 0.490776
open System
open System.Threading

let chaosAsync (name:string) (shouldChaosAsync:unit -> Async<bool>) (chaosAsync:unit -> Async<unit>) =
    fun (serviceAsync:unit -> Async<'t>) ->
        async {
            if shouldChaosAsync () |> Async.RunSynchronously then
                printfn "%s" name
                chaosAsync () |> Async.RunSynchronously
            else ()
            return! serviceAsync ()
        }

let alwaysAsync = fun () -> async { return true }
let latencyAsync (ms:int) = fun () -> async { Thread.Sleep(ms) }
let computeRandomAsync = fun () -> async { return (new Random()).NextDouble() }

let injectChaos = chaosAsync "latency test" alwaysAsync (latencyAsync 3000)
let result = injectChaos computeRandomAsync |> Async.RunSynchronously
printfn "%f" result