FsCodec 3.1rc3, Eqx4.1a22

Author: bartelink

src/Propulsion.CosmosStore/Propulsion.CosmosStore.fsproj

@@ -21,8 +21,8 @@
   <ItemGroup>
     <PackageReference Include="MinVer" Version="5.0.0" PrivateAssets="All" />
 
-    <PackageReference Include="Equinox.CosmosStore" Version="4.1.0-alpha.20" />
-    <PackageReference Include="FsCodec.SystemTextJson" Version="3.0.4-alpha.0.15" />
+    <PackageReference Include="Equinox.CosmosStore" Version="4.1.0-alpha.22" />
+    <PackageReference Include="FsCodec.SystemTextJson" Version="3.1.0-rc.3" />
   </ItemGroup>
 
   <ItemGroup>

src/Propulsion.CosmosStore3/Propulsion.CosmosStore3.fsproj

@@ -39,7 +39,7 @@
     <PackageReference Include="MinVer" Version="5.0.0" PrivateAssets="All" />
 
     <PackageReference Include="Equinox.CosmosStore" Version="[3.0.7, 3.99.0]" />
-    <PackageReference Include="FsCodec" Version="3.0.4-alpha.0.15" />
+    <PackageReference Include="FsCodec" Version="3.1.0-rc.3" />
     <PackageReference Include="FSharp.Control.TaskSeq" Version="0.4.0" />
     <PackageReference Include="Microsoft.Azure.Cosmos" Version="3.27.0" ExcludeAssets="contentfiles" />
   </ItemGroup>

src/Propulsion.DynamoStore/DynamoStoreSource.fs

@@ -50,7 +50,7 @@ module private Impl =
         sw.Stop()
         let totalStreams, chosenEvents, totalEvents, streamEvents =
             let all = state.changes |> Seq.collect (fun struct (_i, xs) -> xs) |> AppendsEpoch.flatten |> Array.ofSeq
-            let totalEvents = all |> Array.sumBy _.c.Length
+            let totalEvents = all |> Array.sumBy (fun x -> x.c.Length)
             let mutable chosenEvents = 0
             let chooseStream (span: AppendsEpoch.Events.StreamSpan) =
                 match maybeLoad (IndexStreamId.toStreamName span.p) (span.i, span.c) with

src/Propulsion.DynamoStore/Propulsion.DynamoStore.fsproj

@@ -27,7 +27,7 @@
       <PackageReference Include="MinVer" Version="5.0.0" PrivateAssets="All" />
 
       <PackageReference Include="Equinox.DynamoStore" Version="4.0.0" />
-      <PackageReference Include="FsCodec.SystemTextJson" Version="3.0.4-alpha.0.15" />
+      <PackageReference Include="FsCodec.SystemTextJson" Version="3.1.0-rc.3" />
     </ItemGroup>
 
     <ItemGroup>

src/Propulsion/Propulsion.fsproj

@@ -32,7 +32,7 @@
   <ItemGroup>
     <PackageReference Include="MinVer" Version="5.0.0" PrivateAssets="All" />
 
-    <PackageReference Include="FsCodec" Version="3.0.4-alpha.0.15" />
+    <PackageReference Include="FsCodec" Version="3.1.0-rc.3" />
     <!-- NOTE this transitively implies a min FSharp.Core 6.0.1 dependency (was 6.0.0 before) -->
     <PackageReference Include="FSharp.Control.TaskSeq" Version="0.4.0" />
     <PackageReference Include="MathNet.Numerics" Version="4.15.0" />

tests/Propulsion.MessageDb.Integration/Propulsion.MessageDb.Integration.fsproj

@@ -9,7 +9,7 @@
     </ItemGroup>
 
     <ItemGroup>
-        <PackageReference Include="FsCodec.SystemTextJson" Version="3.0.4-alpha.0.15" />
+        <PackageReference Include="FsCodec.SystemTextJson" Version="3.1.0-rc.3" />
         <PackageReference Include="TypeShape" Version="10.0.0" />
     </ItemGroup>
     <ItemGroup>

tools/Propulsion.Tool/Infrastructure.fs

@@ -10,7 +10,7 @@ module Metrics =
     let [<Literal>] PropertyTag = "isMetric"
     let mutable log = Log.ForContext(PropertyTag, true)
     // In a real app, you have a separate module Store with Metrics inside, and the static initializer is not triggered too early
-    // TODO get rid of this; I have up this time around :(
+    // TODO get rid of this; I gave up this time around :(
     let init () = log <- Log.ForContext(PropertyTag, true)
 
 module EnvVar =