Formatting consistency

jet · Feb 13, 2020 · 5fa682c · 5fa682c
1 parent d539822
commit 5fa682c
Show file tree

Hide file tree

Showing 4 changed files with 8 additions and 8 deletions.
diff --git a/equinox-fc/Domain/Allocation.fs b/equinox-fc/Domain/Allocation.fs
@@ -229,7 +229,7 @@ let create resolve = Service(Serilog.Log.ForContext<Service>(), resolve, maxAtte
 module EventStore =
 
  open Equinox.EventStore
- let resolve (context, cache) =
+ let private resolve (context, cache) =
  let cacheStrategy = CachingStrategy.SlidingWindow (cache, System.TimeSpan.FromMinutes 20.)
  // while there are competing writers [which might cause us to have to retry a Transact], this should be infrequent
  let opt = Equinox.ResolveOption.AllowStale
@@ -241,7 +241,7 @@ module EventStore =
 module Cosmos =
 
  open Equinox.Cosmos
- let resolve (context, cache) =
+ let private resolve (context, cache) =
  let cacheStrategy = CachingStrategy.SlidingWindow (cache, System.TimeSpan.FromMinutes 20.)
  // while there are competing writers [which might cause us to have to retry a Transact], this should be infrequent
  let opt = Equinox.ResolveOption.AllowStale

diff --git a/equinox-fc/Domain/Allocator.fs b/equinox-fc/Domain/Allocator.fs
@@ -55,7 +55,7 @@ let create resolve = Service(Serilog.Log.ForContext<Service>(), resolve, 3)
 module EventStore =
 
  open Equinox.EventStore
- let resolve (context, cache) =
+ let private resolve (context, cache) =
  let cacheStrategy = CachingStrategy.SlidingWindow (cache, System.TimeSpan.FromMinutes 20.)
  // while there are competing writers [which might cause us to have to retry a Transact], this should be infrequent
  let opt = Equinox.ResolveOption.AllowStale
@@ -66,7 +66,7 @@ module EventStore =
 module Cosmos =
 
  open Equinox.Cosmos
- let resolve (context, cache) =
+ let private resolve (context, cache) =
  let cacheStrategy = CachingStrategy.SlidingWindow (cache, System.TimeSpan.FromMinutes 20.)
  // while there are competing writers [which might cause us to have to retry a Transact], this should be infrequent
  let opt = Equinox.ResolveOption.AllowStale

diff --git a/equinox-fc/Domain/Ticket.fs b/equinox-fc/Domain/Ticket.fs
@@ -63,7 +63,7 @@ let create resolve = Service(Serilog.Log.ForContext<Service>(), resolve, 3)
 module EventStore =
 
  open Equinox.EventStore
- let resolve (context, cache) =
+ let private resolve (context, cache) =
  let cacheStrategy = CachingStrategy.SlidingWindow (cache, System.TimeSpan.FromMinutes 20.)
  // because we only ever need the last event, we use the Equinox.EventStore access strategy that optimizes around that
  Resolver(context, Events.codec, Fold.fold, Fold.initial, cacheStrategy, AccessStrategy.LatestKnownEvent).Resolve
@@ -73,7 +73,7 @@ module EventStore =
 module Cosmos =
 
  open Equinox.Cosmos
- let resolve (context, cache) =
+ let private resolve (context, cache) =
  let cacheStrategy = CachingStrategy.SlidingWindow (cache, System.TimeSpan.FromMinutes 20.)
  // because we only ever need the last event to build the state, we feed the events we are writing
  // (there's always exactly one if we are writing), into the unfolds slot so a single point read with etag check gets us state in one trip

diff --git a/equinox-fc/Domain/TicketList.fs b/equinox-fc/Domain/TicketList.fs
@@ -42,7 +42,7 @@ let create resolve = Service(Serilog.Log.ForContext<Service>(), resolve, maxAtte
 module EventStore =
 
  open Equinox.EventStore
- let resolve (context, cache) =
+ let private resolve (context, cache) =
  let cacheStrategy = CachingStrategy.SlidingWindow (cache, System.TimeSpan.FromMinutes 20.)
  // while there are competing writers (which might cause us to have to retry a Transact and discover it is redundant), there is never a cost to being wrong
  let opt = Equinox.ResolveOption.AllowStale
@@ -55,7 +55,7 @@ module EventStore =
 module Cosmos =
 
  open Equinox.Cosmos
- let resolve (context, cache) =
+ let private resolve (context, cache) =
  let cacheStrategy = CachingStrategy.SlidingWindow (cache, System.TimeSpan.FromMinutes 20.)
  // while there are competing writers (which might cause us to have to retry a Transact and discover it is redundant), there is never a cost to being wrong
  let opt = Equinox.ResolveOption.AllowStale