src/Equinox/Decider.fs

&#65279;// Application-facing APIs. Domain services should only need to use or reference a Decider.
// Application Composition roots are responsible for wiring a Decider to a concrete store, and configuring its Access Strategies etc
namespace Equinox

open Equinox.Core
open System

/// Central Application-facing API for F#. Wraps the handling of decision or query flows in a manner that is store agnostic
/// NOTE: For C#, direct usage of DeciderCore is recommended
[<NoComparison; NoEquality>]
type Decider<'event, 'state>(inner: DeciderCore<'event, 'state>) =

    /// <summary>Provides access to lower-level APIs to enable building custom <c>Transact</c> / <c>Query</c> variations</summary>
    member val Core = inner

    /// <summary>1.  Invoke the supplied <c>interpret</c> function with the present state to determine whether any write is to occur.<br/>
    /// 2. (if events yielded) Attempt to sync the yielded events to the stream.<br/>
    ///    (Restarts up to <c>maxAttempts</c> times with updated state per attempt, throwing <c>MaxResyncsExhaustedException</c> on failure of final attempt.)</summary>
    member _.Transact(interpret: 'state -> 'event[], ?load, ?attempts): Async<unit> = Async.call <| fun ct ->
        inner.Transact(interpret, ?load = load, ?attempts = attempts, ct = ct)

    /// <summary>1. Invoke the supplied <c>interpret</c> function with the present state<br/>
    /// 2. (if events yielded) Attempt to sync the yielded events to the stream.<br/>
    ///    (Restarts up to <c>maxAttempts</c> times with updated state per attempt, throwing <c>MaxResyncsExhaustedException</c> on failure of final attempt.)<br/>
    /// 3. Uses <c>render</c> to generate a 'view from the persisted state</summary>
    member _.Transact(interpret: 'state -> 'event[], render: 'state -> 'view, ?load, ?attempts): Async<'view> = Async.call <| fun ct ->
        inner.Transact(interpret, render, ?load = load, ?attempts = attempts, ct = ct)

    /// <summary>1. Invoke the supplied <c>decide</c> function with the present state, holding the <c>'result</c><br/>
    /// 2. (if events yielded) Attempt to sync the yielded events to the stream.<br/>
    ///    (Restarts up to <c>maxAttempts</c> times with updated state per attempt, throwing <c>MaxResyncsExhaustedException</c> on failure of final attempt.)<br/>
    /// 3. Yield result</summary>
    member _.Transact(decide: 'state -> 'result * 'event[], ?load, ?attempts): Async<'result> = Async.call <| fun ct ->
        inner.Transact(decide >> ValueTuple.Create, ?load = load, ?attempts = attempts, ct = ct)

    /// <summary>1. Invoke the supplied <c>decide</c> function with the present state, holding the <c>'result</c><br/>
    /// 2. (if events yielded) Attempt to sync the yielded events to the stream.<br/>
    ///    (Restarts up to <c>maxAttempts</c> times with updated state per attempt, throwing <c>MaxResyncsExhaustedException</c> on failure of final attempt.)<br/>
    /// 3. Yields a 'view produced by <c>mapResult</c> from the <c>'result</c> and/or the persisted <c>'state</c></summary>
    member _.Transact(decide: 'state -> 'result * 'event[], mapResult: 'result -> 'state -> 'view, ?load, ?attempts): Async<'view> = Async.call <| fun ct ->
        inner.Transact(decide >> ValueTuple.Create, mapResult, ?load = load, ?attempts = attempts, ct = ct)

    /// <summary>Project from the folded <c>'state</c>, but without executing a decision flow as <c>Transact</c> does</summary>
    member _.Query(render: 'state -> 'view, ?load): Async<'view> = Async.call <| fun ct ->
        inner.Query(render, ?load = load, ct = ct)

    /// <summary>1. Invoke the supplied <c>decide</c> function with the current complete context, holding the <c>'result</c><br/>
    /// 2. (if events yielded) Attempt to sync the yielded events to the stream.<br/>
    ///    (Restarts up to <c>maxAttempts</c> times with updated state per attempt, throwing <c>MaxResyncsExhaustedException</c> on failure of final attempt.)<br/>
    /// 3. Yields <c>result</c></summary>
    member _.TransactEx(decide: ISyncContext<'state> -> 'result * 'event[], ?load, ?attempts): Async<'result> = Async.call <| fun ct ->
        inner.TransactEx(decide >> ValueTuple.Create, ?load = load, ?attempts = attempts, ct = ct)

    /// <summary>1. Invoke the supplied <c>decide</c> function with the current complete context, holding the <c>'result</c><br/>
    /// 2. (if events yielded) Attempt to sync the yielded events to the stream.<br/>
    ///    (Restarts up to <c>maxAttempts</c> times with updated state per attempt, throwing <c>MaxResyncsExhaustedException</c> on failure of final attempt.)<br/>
    /// 3. Uses <c>mapResult</c> to produce a <c>'view</c> from the <c>'result</c> and/or the persisted <c>ISyncContext</c></summary>
    member _.TransactEx(decide: ISyncContext<'state> -> 'result * 'event[], mapResult: 'result -> ISyncContext<'state> -> 'view,
                         ?load, ?attempts): Async<'view> = Async.call <| fun ct ->
        inner.TransactEx(decide >> ValueTuple.Create, mapResult, ?load = load, ?attempts = attempts, ct = ct)


    /// <summary>1. Invoke the supplied <c>interpret</c> function with the current complete context<br/>
    /// 2. (if events yielded) Attempt to sync the yielded events to the stream.<br/>
    ///    (Restarts up to <c>maxAttempts</c> times with updated state per attempt, throwing <c>MaxResyncsExhaustedException</c> on failure of final attempt.)<br/>
    /// 3. Uses <c>render</c> to generate a 'view from the persisted <c>ISyncContext</c></summary>
    member _.TransactEx(interpret: ISyncContext<'state> -> 'event[], render: ISyncContext<'state> -> 'view,
                        ?load, ?attempts): Async<'view> = Async.call <| fun ct ->
        inner.TransactEx(interpret, render, ?load = load, ?attempts = attempts, ct = ct)

    /// <summary>Project from the stream's complete context, but without executing a decision flow as <c>TransactEx</c> does</summary>
    member _.QueryEx(render: ISyncContext<'state> -> 'view, ?load): Async<'view> = Async.call <| fun ct ->
        inner.QueryEx(render, ?load = load, ct = ct)

    (* Async variants *)

    /// <summary>1. Invoke the supplied <c>Async</c> <c>interpret</c> function with the present state<br/>
    /// 2. (if events yielded) Attempt to sync the yielded events to the stream.<br/>
    ///    (Restarts up to <c>maxAttempts</c> times with updated state per attempt, throwing <c>MaxResyncsExhaustedException</c> on failure of final attempt.)<br/>
    /// 3. Uses <c>render</c> to generate a 'view from the persisted state</summary>
    member _.Transact(interpret: 'state -> Async<'event[]>, render: 'state -> 'view, ?load, ?attempts): Async<'view> = Async.call <| fun ct ->
        inner.Transact((fun s ct -> Async.StartImmediateAsTask(interpret s, ct)), render, ?load = load, ?attempts = attempts, ct = ct)

    /// <summary>1. Invoke the supplied <c>Async</c> <c>decide</c> function with the present state, holding the <c>'result</c><br/>
    /// 2. (if events yielded) Attempt to sync the yielded events to the stream.<br/>
    ///    (Restarts up to <c>maxAttempts</c> times with updated state per attempt, throwing <c>MaxResyncsExhaustedException</c> on failure of final attempt.)<br/>
    /// 3. Yield result</summary>
    member _.Transact(decide: 'state -> Async<'result * 'event[]>, ?load, ?attempts): Async<'result> = Async.call <| fun ct ->
        let inline decide' s ct = task { let! r, es = Async.StartImmediateAsTask(decide s, ct) in return struct (r, es) }
        inner.Transact(decide', ?load = load, ?attempts = attempts, ct = ct)

    /// <summary>1. Invoke the supplied <c>Async</c> <c>decide</c> function with the current complete context, holding the <c>'result</c><br/>
    /// 2. (if events yielded) Attempt to sync the yielded events to the stream.<br/>
    ///    (Restarts up to <c>maxAttempts</c> times with updated state per attempt, throwing <c>MaxResyncsExhaustedException</c> on failure of final attempt.)<br/>
    /// 3. Yield result</summary>
    member _.TransactEx(decide: ISyncContext<'state> -> Async<'result * 'event[]>, ?load, ?attempts): Async<'result> = Async.call <| fun ct ->
        let decide' c ct = task { let! r, es = Async.StartImmediateAsTask(decide c, ct) in return struct (r, es) }
        inner.TransactEx(decide', ?load = load, ?attempts = attempts, ct = ct)

    /// <summary>1. Invoke the supplied <c>Async</c> <c>decide</c> function with the current complete context, holding the <c>'result</c><br/>
    /// 2. (if events yielded) Attempt to sync the yielded events to the stream.<br/>
    ///    (Restarts up to <c>maxAttempts</c> times with updated state per attempt, throwing <c>MaxResyncsExhaustedException</c> on failure of final attempt.)<br/>
    /// 3. Uses <c>mapResult</c> to produce a <c>'view</c> from the <c>'result</c> and/or the persisted <c>ISyncContext</c></summary>
    member _.TransactEx(decide: ISyncContext<'state> -> Async<'result * 'event[]>, mapResult: 'result -> ISyncContext<'state> -> 'view,
                       ?load, ?attempts): Async<'view> = Async.call <| fun ct ->
        let inline decide' c ct = task { let! r, es = Async.StartImmediateAsTask(decide c, ct) in return struct (r, es) }
        inner.TransactEx(decide', mapResult, ?load = load, ?attempts = attempts, ct = ct)

/// Central Application-facing API. Wraps the handling of decision or query flows in a manner that is store agnostic
/// For F#, the async and FSharpFunc signatures in Decider tend to work better, but the API set is equivalent
and [<NoComparison; NoEquality>]
    DeciderCore<'event, 'state>(stream: IStream<'event, 'state>) =

    let (|Context|) = SyncContext<'state>.Map

    /// <summary>1.  Invoke the supplied <c>interpret</c> function with the present state to determine whether any write is to occur.<br/>
    /// 2. (if events yielded) Attempt to sync the yielded events to the stream.<br/>
    ///    (Restarts up to <c>maxAttempts</c> times with updated state per attempt, throwing <c>MaxResyncsExhaustedException</c> on failure of final attempt.)</summary>
    member _.Transact(interpret: Func<'state, 'event[]>,
                      [<O; D null>] ?load, [<O; D null>] ?attempts, [<O; D null>]?ct): Task<unit> =
        let inline decide struct (_t: StreamToken, state) _ct = Task.FromResult struct ((), interpret.Invoke state)
        let inline mapRes () struct (_t: StreamToken, _s: 'state) = ()
        Stream.transact (stream, LoadPolicy.Fetch load, decide, AttemptsPolicy.Validate attempts, mapRes, defaultArg ct CancellationToken.None)

    /// <summary>1. Invoke the supplied <c>interpret</c> function with the present state<br/>
    /// 2. (if events yielded) Attempt to sync the yielded events to the stream.<br/>
    ///    (Restarts up to <c>maxAttempts</c> times with updated state per attempt, throwing <c>MaxResyncsExhaustedException</c> on failure of final attempt.)<br/>
    /// 3. Uses <c>render</c> to generate a 'view from the persisted state</summary>
    member _.Transact(interpret: Func<'state, 'event[]>, render: Func<'state, 'view>,
                      [<O; D null>] ?load, [<O; D null>] ?attempts, [<O; D null>]?ct): Task<'view> =
        let inline decide struct (_token, state) _ct = Task.FromResult struct ((), interpret.Invoke state)
        let inline mapRes () struct (_token, state) = render.Invoke state
        Stream.transact (stream, LoadPolicy.Fetch load, decide, AttemptsPolicy.Validate attempts, mapRes, defaultArg ct CancellationToken.None)

    /// <summary>1. Invoke the supplied <c>decide</c> function with the present state, holding the <c>'result</c><br/>
    /// 2. (if events yielded) Attempt to sync the yielded events to the stream.<br/>
    ///    (Restarts up to <c>maxAttempts</c> times with updated state per attempt, throwing <c>MaxResyncsExhaustedException</c> on failure of final attempt.)<br/>
    /// 3. Yield result</summary>
    member _.Transact(decide: Func<'state, struct ('result * 'event[])>,
                      [<O; D null>] ?load, [<O; D null>] ?attempts, [<O; D null>] ?ct): Task<'result> =
        let inline decide struct (_token, state) _ct = decide.Invoke state |> Task.FromResult
        let inline mapRes r _ = r
        Stream.transact (stream, LoadPolicy.Fetch load, decide, AttemptsPolicy.Validate attempts, mapRes, defaultArg ct CancellationToken.None)

    /// <summary>1. Invoke the supplied <c>decide</c> function with the present state, holding the <c>'result</c><br/>
    /// 2. (if events yielded) Attempt to sync the yielded events to the stream.<br/>
    ///    (Restarts up to <c>maxAttempts</c> times with updated state per attempt, throwing <c>MaxResyncsExhaustedException</c> on failure of final attempt.)<br/>
    /// 3. Uses <c>mapResult</c> to produce a <c>'view</c> from the <c>'result</c> and/or the persisted <c>'state</c></summary>
    member _.Transact(decide: Func<'state, struct ('result * 'event[])>, mapResult: Func<'result, 'state, 'view>,
                      [<O; D null>] ?load, [<O; D null>] ?attempts, [<O; D null>] ?ct): Task<'view> =
        let inline decide struct (_token, state) _ct = decide.Invoke state |> Task.FromResult
        let inline mapRes r struct (_, s) = mapResult.Invoke(r, s)
        Stream.transact (stream, LoadPolicy.Fetch load, decide, AttemptsPolicy.Validate attempts, mapRes, defaultArg ct CancellationToken.None)

    /// <summary>Project from the folded <c>'state</c>, but without executing a decision flow as <c>Transact</c> does</summary>
    member _.Query(render: Func<'state, 'view>,
                   [<O; D null>] ?load, [<O; D null>] ?ct): Task<'view> =
        let render struct (_token, state) = render.Invoke(state)
        Stream.query (stream, LoadPolicy.Fetch load, render, defaultArg ct CancellationToken.None)

    /// <summary>1. Invoke the supplied <c>decide</c> function with the current complete context, holding the <c>'result</c><br/>
    /// 2. (if events yielded) Attempt to sync the yielded events to the stream.<br/>
    ///    (Restarts up to <c>maxAttempts</c> times with updated state per attempt, throwing <c>MaxResyncsExhaustedException</c> on failure of final attempt.)<br/>
    /// 3. Yields <c>result</c></summary>
    member _.TransactEx(decide: Func<ISyncContext<'state>, struct ('result * 'event[])>,
                        [<O; D null>] ?load, [<O; D null>] ?attempts, [<O; D null>] ?ct): Task<'result> =
        let inline decide' (Context c) _ct = decide.Invoke(c) |> Task.FromResult
        let inline mapRes r _ = r
        Stream.transact (stream, LoadPolicy.Fetch load, decide', AttemptsPolicy.Validate attempts, mapRes, defaultArg ct CancellationToken.None)

    /// <summary>1. Invoke the supplied <c>decide</c> function with the current complete context, holding the <c>'result</c><br/>
    /// 2. (if events yielded) Attempt to sync the yielded events to the stream.<br/>
    ///    (Restarts up to <c>maxAttempts</c> times with updated state per attempt, throwing <c>MaxResyncsExhaustedException</c> on failure of final attempt.)<br/>
    /// 3. Yields a 'view produced by <c>mapResult</c> from the <c>'result</c> and/or the persisted <c>ISyncContext</c></summary>
    member _.TransactEx(decide: Func<ISyncContext<'state>, struct ('result * 'event[])>, mapResult: Func<'result, ISyncContext<'state>, 'view>,
                        [<O; D null>] ?load, [<O; D null>] ?attempts, [<O; D null>] ?ct): Task<'view> =
        let inline decide (Context c) _ct = c |> decide.Invoke |> Task.FromResult
        let inline mapRes r (Context c) = mapResult.Invoke(r, c)
        Stream.transact (stream, LoadPolicy.Fetch load, decide, AttemptsPolicy.Validate attempts, mapRes, defaultArg ct CancellationToken.None)

    /// <summary>1. Invoke the supplied <c>interpret</c> function with the present state<br/>
    /// 2. (if events yielded) Attempt to sync the yielded events to the stream.<br/>
    ///    (Restarts up to <c>maxAttempts</c> times with updated state per attempt, throwing <c>MaxResyncsExhaustedException</c> on failure of final attempt.)<br/>
    /// 3. Uses <c>mapResult</c> to produce a <c>'view</c> from the persisted <c>ISyncContext</c></summary>
    member _.TransactEx(interpret: Func<ISyncContext<'state>, 'event[]>, render: Func<ISyncContext<'state>, 'view>,
                        [<O; D null>] ?load, [<O; D null>] ?attempts, [<O; D null>] ?ct): Task<'view> =
        let inline decide (Context c) _ct = Task.FromResult(struct ((), interpret.Invoke c))
        let inline mapRes () (Context c) = render.Invoke c
        Stream.transact (stream, LoadPolicy.Fetch load, decide, AttemptsPolicy.Validate attempts, mapRes, defaultArg ct CancellationToken.None)

    /// <summary>Project from the stream's complete context, but without executing a decision flow as <c>TransactEx</c> does</summary>
    member _.QueryEx(render: Func<ISyncContext<'state>, 'view>, [<O; D null>] ?load, [<O; D null>] ?ct): Task<'view> =
        let render (Context c) = render.Invoke(c)
        Stream.query (stream, LoadPolicy.Fetch load, render, defaultArg ct CancellationToken.None)

    (* Async variants *)

    /// <summary>1. Invoke the supplied <c>Async</c> <c>interpret</c> function with the present state<br/>
    /// 2. (if events yielded) Attempt to sync the yielded events to the stream.<br/>
    ///    (Restarts up to <c>maxAttempts</c> times with updated state per attempt, throwing <c>MaxResyncsExhaustedException</c> on failure of final attempt.)<br/>
    /// 3. Uses <c>render</c> to generate a 'view from the persisted state</summary>
    member _.Transact(interpret: Func<'state, CancellationToken, Task<'event[]>>, render: Func<'state, 'view>,
                      [<O; D null>] ?load, [<O; D null>] ?attempts, [<O; D null>] ?ct): Task<'view> =
        let inline decide struct (_token, state) ct = task { let! es = interpret.Invoke(state, ct) in return struct ((), es) }
        let inline mapRes () struct (_token, state) = render.Invoke state
        Stream.transact (stream, LoadPolicy.Fetch load, decide, AttemptsPolicy.Validate attempts, mapRes, defaultArg ct CancellationToken.None)

    /// <summary>1. Invoke the supplied <c>Async</c> <c>decide</c> function with the present state, holding the <c>'result</c><br/>
    /// 2. (if events yielded) Attempt to sync the yielded events to the stream.<br/>
    ///    (Restarts up to <c>maxAttempts</c> times with updated state per attempt, throwing <c>MaxResyncsExhaustedException</c> on failure of final attempt.)<br/>
    /// 3. Yield <c>result</c></summary>
    member _.Transact(decide: Func<'state, CancellationToken, Task<struct ('result * 'event[])>>,
                      [<O; D null>] ?load, [<O; D null>] ?attempts, [<O; D null>] ?ct): Task<'result> =
        let inline decide struct (_token, state) ct = decide.Invoke(state, ct)
        let inline mapRes r _ = r
        Stream.transact (stream, LoadPolicy.Fetch load, decide, AttemptsPolicy.Validate attempts, mapRes, defaultArg ct CancellationToken.None)

    /// <summary>1. Invoke the supplied <c>Async</c> <c>decide</c> function with the current complete context, holding the <c>'result</c><br/>
    /// 2. (if events yielded) Attempt to sync the yielded events to the stream.<br/>
    ///    (Restarts up to <c>maxAttempts</c> times with updated state per attempt, throwing <c>MaxResyncsExhaustedException</c> on failure of final attempt.)<br/>
    /// 3. Yield <c>result</c></summary>
    member _.TransactEx<'result>(decide: Func<ISyncContext<'state>, CancellationToken, Task<struct ('result * 'event[])>>,
                        [<O; D null>] ?load, [<O; D null>] ?attempts, [<O; D null>] ?ct): Task<'result> =
        let inline decide (Context c) ct = decide.Invoke(c, ct)
        let inline mapRes r _ = r
        Stream.transact (stream, LoadPolicy.Fetch load, decide, AttemptsPolicy.Validate attempts, mapRes, defaultArg ct CancellationToken.None)

    /// <summary>1. Invoke the supplied <c>Async</c> <c>decide</c> function with the current complete context, holding the <c>'result</c><br/>
    /// 2. (if events yielded) Attempt to sync the yielded events to the stream.<br/>
    ///    (Restarts up to <c>maxAttempts</c> times with updated state per attempt, throwing <c>MaxResyncsExhaustedException</c> on failure of final attempt.)<br/>
    /// 3. Yields a 'view produced by <c>mapResult</c> from the <c>'result</c> and/or the persisted <c>ISyncContext</c></summary>
    member _.TransactEx(decide: Func<ISyncContext<'state>, CancellationToken, Task<struct ('result * 'event[])>>, mapResult: Func<'result, ISyncContext<'state>, 'view>,
                        [<O; D null>] ?load, [<O; D null>] ?attempts, [<O; D null>] ?ct): Task<'view> =
        let inline decide (Context c) ct = decide.Invoke(c, ct)
        let inline mapRes r (Context c) = mapResult.Invoke(r, c)
        Stream.transact (stream, LoadPolicy.Fetch load, decide, AttemptsPolicy.Validate attempts, mapRes, defaultArg ct CancellationToken.None)

(* Options to tune loading policy - default is RequireLoad *)

/// Store-agnostic Loading Options
and [<NoComparison; NoEquality; RequireQualifiedAccess>]
    LoadOption<'state> =
    /// Default policy; Obtain latest state from store based on consistency level configured
    | RequireLoad
    /// Request that data be read with a quorum read / from a Leader connection
    | RequireLeader
    /// If the Cache holds any state, use that without checking the backing store for updates, implying:
    /// - maximizing how much we lean on Optimistic Concurrency Control when doing a `Transact` (though you're still guaranteed a consistent outcome)
    /// - enabling stale reads (without ever hitting the store, unless a writer sharing the same Cache does so) when doing a `Query`
    | AnyCachedValue
    /// If the Cache holds a state, and it's within the specified limit, use that without checking the backing store for updates, implying:
    /// - increasing how much we lean on Optimistic Concurrency Control when doing a `Transact` (though you're still guaranteed a consistent outcome)
    /// - limiting the frequency of reads to 1 request per stream per Cache per `age` when using `Query`
    | AllowStale of maxAge: TimeSpan
    /// Inhibit load from store based on the fact that the stream is likely not to have been initialized yet, and we will be generating events
    | AssumeEmpty
    /// Instead of loading from store, seed the loading process with the supplied memento
    // NOTE: in V<=3, related to a low level pattern CreateMemento mechanism, see https://github.com/jet/equinox/pull/413
    //       V4 and later only generates these via *StoreCategory.TryHydrateTip
    | FromMemento of memento: struct (StreamToken * 'state)
and [<AbstractClass; Sealed>] internal LoadPolicy private () =
    static member Fetch<'state, 'event>(x: LoadOption<'state> option) : IStream<'event, 'state> -> CancellationToken -> Task<struct (StreamToken * 'state)> =
        match x with
        | None | Some LoadOption.RequireLoad ->     fun stream ct ->    stream.Load(maxAge = TimeSpan.Zero,     requireLeader = false, ct = ct)
        | Some LoadOption.RequireLeader ->          fun stream ct ->    stream.Load(maxAge = TimeSpan.Zero,     requireLeader = true,  ct = ct)
        | Some LoadOption.AnyCachedValue ->         fun stream ct ->    stream.Load(maxAge = TimeSpan.MaxValue, requireLeader = false, ct = ct)
        | Some (LoadOption.AllowStale maxAge) ->    fun stream ct ->    stream.Load(maxAge = maxAge,            requireLeader = false, ct = ct)
        | Some LoadOption.AssumeEmpty ->            fun stream _ct ->   Task.FromResult(stream.LoadEmpty())
        | Some (LoadOption.FromMemento tokenAndState) -> fun _stream _ct -> Task.FromResult tokenAndState

(* Retry / Attempts policy used to define policy for retrying based on the conflicting state when there's an Append conflict (default 3 retries) *)

and [<NoComparison; NoEquality; RequireQualifiedAccess>]
    Attempts =
    | Max of count: int
and [<AbstractClass; Sealed>] internal AttemptsPolicy private () =
    static member Validate(opt: Attempts option) =
        let maxAttempts = match opt with Some (Attempts.Max n) -> n | None -> 3
        if maxAttempts < 1 then raise (ArgumentOutOfRangeException(nameof opt, maxAttempts, "should be >= 1"))
        fun attempt -> if attempt = maxAttempts then raise (MaxResyncsExhaustedException attempt)

/// Exception yielded by Decider.Transact after `count` attempts have yielded conflicts at the point of syncing with the Store
and MaxResyncsExhaustedException(count) =
   inherit exn $"Concurrency violation; aborting after %i{count} attempts."

/// Exposed by TransactEx / QueryEx, providing access to extended state information for cases where that's required
and [<NoComparison; NoEquality>]
    ISyncContext<'state> =

    /// Store-independent Version associated with the present <c>State</c>, based on the underlying Stream's write position.
    /// An empty stream is Version 0; one with a single event is Version 1 etc.
    /// NOTE Version is more authoritative than counting the events seen, or adding 1 to the `Index` of the last event
    ///      passed to your `fold` function; the codec may opt to filter out some events
    abstract member Version: int64

    /// The Storage occupied by the Events written to the underlying stream at the present time.
    /// Specific stores may vary whether this is available, or the basis and preciseness for how it is computed.
    abstract member StreamEventBytes: int64 voption

    /// The present State of the stream within the context of this Flow
    abstract member State: 'state

and [<AbstractClass; Sealed>] internal SyncContext<'state> private () =
    static member Map(struct (token: StreamToken, state: 'state)) =
        { new ISyncContext<'state> with
            member _.State = state
            member _.Version = token.version
            member _.StreamEventBytes = match token.streamBytes with -1L -> ValueNone | b -> ValueSome b }