F# async composition

Fsharp.Async.Composition.fs

let sleepOnError fn =
    async {
        let! (res:Result<_,_>) = fn
        return!
            match res with
            | Ok o -> async.Return (Ok o)
            | Error e ->
                async {
                    do! Async.Sleep 750
                    return Error e
                }
    }

let retryOnError fn =
    async {
        let! (res:Result<_,_>) = fn
        return!
            match res with
            | Ok o -> async.Return (Ok o)
            | Error e ->
                fn
    }

let sleepAndRetryOnError = sleepOnError >> retryOnError
let sleepAndRetryTwiceOnError = sleepAndRetryOnError >> sleepAndRetryOnError

let someFun (s:string) =
    async {
        if System.DateTime.Now.Second % 2 = 0 then
            eprintfn "Got an error"
            return Error "Some error"
        else
            return Ok $"Running {s} in someFun"
    }

(someFun "someFun") |> sleepAndRetryTwiceOnError |> Async.RunSynchronously |> printfn "%A"