Cosmos: Provide a clean way to examine endpoint Uri when working from connection string about equinox HOT 1 CLOSED

[<AutoOpen>]
module DiscoveryExtensions =

    let (|AccountEndpoint|) connectionString =
        match System.Data.Common.DbConnectionStringBuilder(ConnectionString = connectionString).TryGetValue "AccountEndpoint" with
        | true, (:? string as s) when not (System.String.IsNullOrEmpty s) -> s
        | _ -> invalidOp "Connection string does not contain an \"AccountEndpoint\""

    type Equinox.CosmosStore.Discovery with

        member x.Endpoint : System.Uri = x |> function
            | Equinox.CosmosStore.Discovery.AccountUriAndKey (u, _k) -> u
            | Equinox.CosmosStore.Discovery.ConnectionString (AccountEndpoint e) -> System.Uri e

    type Equinox.Cosmos.Discovery with

        member x.Endpoint : System.Uri = x |> function
            | Equinox.Cosmos.Discovery.UriAndKey (u, _k) -> u