Simple F# function that returns a function that may inject chaos

chaos2.fsx

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

let chaos (name:string) (shouldChaos:unit -> bool) (chaos:unit -> unit) =
    fun (service:unit -> 't) ->
        if shouldChaos () then
            printfn "%s" name
            do chaos
        else ()
        service ()

let always = fun () -> true
let latency (ms:int) = fun () -> Thread.Sleep(ms)
let computeRandom = fun () -> (new Random()).NextDouble()

let injectChaos = chaos "latency test" always (latency 3000)
let result = injectChaos computeRandom
printfn "%f" result