Formatting consistency

jet · Jan 15, 2020 · 70c2c8a · 70c2c8a
1 parent face068
commit 70c2c8a
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