Formatting consistency

Author: bartelink

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

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

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

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