From 70c2c8a0757734f31d5f6be1015da68fe5b71308 Mon Sep 17 00:00:00 2001 From: Ruben Bartelink Date: Sat, 7 Dec 2019 12:28:07 +0000 Subject: [PATCH] Formatting consistency --- equinox-fc/Domain/Allocation.fs | 4 ++-- equinox-fc/Domain/Allocator.fs | 4 ++-- equinox-fc/Domain/Ticket.fs | 4 ++-- equinox-fc/Domain/TicketList.fs | 4 ++-- 4 files changed, 8 insertions(+), 8 deletions(-) diff --git a/equinox-fc/Domain/Allocation.fs b/equinox-fc/Domain/Allocation.fs index 502a06d91..3cb0caadb 100644 --- a/equinox-fc/Domain/Allocation.fs +++ b/equinox-fc/Domain/Allocation.fs @@ -229,7 +229,7 @@ let create resolve = Service(Serilog.Log.ForContext(), 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 index 0ea9dcfd1..8c26b54e2 100644 --- a/equinox-fc/Domain/Allocator.fs +++ b/equinox-fc/Domain/Allocator.fs @@ -55,7 +55,7 @@ let create resolve = Service(Serilog.Log.ForContext(), 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 index ebe74279e..905b989ba 100644 --- a/equinox-fc/Domain/Ticket.fs +++ b/equinox-fc/Domain/Ticket.fs @@ -63,7 +63,7 @@ let create resolve = Service(Serilog.Log.ForContext(), 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 index fa5205e6a..2905e7392 100644 --- a/equinox-fc/Domain/TicketList.fs +++ b/equinox-fc/Domain/TicketList.fs @@ -42,7 +42,7 @@ let create resolve = Service(Serilog.Log.ForContext(), 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