Argu tidying

Author: bartelink

tools/Propulsion.Tool/Args.fs

@@ -88,7 +88,7 @@ module Cosmos =
         let containerId =                   p.GetResult(Container, fun () -> c.CosmosContainer)
         let leasesContainerName =           p.GetResult(LeaseContainer, fun () -> containerId + p.GetResult(Suffix, "-aux"))
         let checkpointInterval =            TimeSpan.hours 1.
-        member val MaybeLogLagInterval =    p.TryGetResult LagFreqM |> Option.map TimeSpan.minutes
+        member val MaybeLogLagInterval =    p.TryPostProcessResult(LagFreqM, TimeSpan.minutes)
         member _.CreateLeasesContainer() =  connector.CreateLeasesContainer(databaseId, leasesContainerName)
         member _.ConnectFeed() =            connector.ConnectFeed(databaseId, containerId, leasesContainerName)
         member x.CreateCheckpointStore(group, cache, storeLog) = async {

tools/Propulsion.Tool/Infrastructure.fs

@@ -26,7 +26,6 @@ module Sinks =
             if verbose then t else t.Replace("{Properties}", "")
         configuration.WriteTo.Console(theme = Sinks.SystemConsole.Themes.AnsiConsoleTheme.Code, outputTemplate = outputTemplate)
 
-[<System.Runtime.CompilerServices.Extension>]
 type Logging() =
 
     [<System.Runtime.CompilerServices.Extension>]

tools/Propulsion.Tool/Program.fs

@@ -203,7 +203,7 @@ module Indexer =
     type Arguments(c, p: ParseResults<IndexParameters>) =
         member val GapsLimit =              p.GetResult(IndexParameters.GapsLimit, 10)
         member val ImportJsonFiles =        p.GetResults IndexParameters.DynamoDbJson
-        member val TrancheId =              p.TryGetResult IndexParameters.IndexPartitionId |> Option.map (string >> AppendsPartitionId.parse)
+        member val TrancheId =              p.TryPostProcessResult(IndexParameters.IndexPartitionId, string >> AppendsPartitionId.parse)
         // Larger optimizes for not needing to use TransactWriteItems as frequently
         // Smaller will trigger more items and reduce read costs for Sources reading from the tail
         member val MinItemSize =            p.GetResult(IndexParameters.MinSizeK, 48)

tools/Propulsion.Tool/Propulsion.Tool.fsproj

@@ -28,7 +28,7 @@
   <ItemGroup>
     <PackageReference Include="MinVer" Version="4.2.0" PrivateAssets="All" />
 
-	<PackageReference Include="Argu" Version="6.1.3" />
+	<PackageReference Include="Argu" Version="6.1.4" />
     <!-- Required or there'll be an exception at runtime re missing support DLLs when using RBAC -->
     <PackageReference Include="AWSSDK.SecurityToken" Version="3.7.1.177" />
     <!-- Required for AWS SSO resolution -->