Skip to content

Commit

Permalink
Formatting consistency
Browse files Browse the repository at this point in the history
  • Loading branch information
bartelink committed Dec 7, 2019
1 parent 02fe311 commit 06e44d8
Show file tree
Hide file tree
Showing 4 changed files with 8 additions and 8 deletions.
4 changes: 2 additions & 2 deletions equinox-fc/Domain/Allocation.fs
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand All @@ -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
Expand Down
4 changes: 2 additions & 2 deletions equinox-fc/Domain/Allocator.fs
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand All @@ -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
Expand Down
4 changes: 2 additions & 2 deletions equinox-fc/Domain/Ticket.fs
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand All @@ -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
Expand Down
4 changes: 2 additions & 2 deletions equinox-fc/Domain/TicketList.fs
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand All @@ -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
Expand Down

0 comments on commit 06e44d8

Please sign in to comment.