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<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
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<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
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<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
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<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