Update to latest versions

CHANGELOG.md

@@ -1,4 +1,8 @@
 # Changelog for `FSharp.CosmosDb`
+## [1.3.0] - Unreleased
+
+- Updating to the latest version of Microsoft.Azure.Cosmos (3.35.4)
+- Updating the Analyzer to the latest version of FSharp.Analyzers.SDK (0.14.1)
 
 ## [1.2.1] - 2022-11-22
 

paket.dependencies

@@ -12,7 +12,7 @@ nuget Microsoft.Extensions.Configuration
 nuget Microsoft.Extensions.Configuration.Json
 nuget Expecto
 nuget YoloDev.Expecto.TestSdk
-nuget Microsoft.NET.Test.Sdk 16.8.3
+nuget Microsoft.NET.Test.Sdk
 nuget Microsoft.SourceLink.GitHub copy_local: true
 nuget Microsoft.NETFramework.ReferenceAssemblies copy_local: true
 nuget Microsoft.Build

samples/FSharp.CosmosDb.Samples.ChangeFeed/FSharp.CosmosDb.Samples.ChangeFeed.fsproj

@@ -21,6 +21,51 @@
     <Compile Include="../shared/Types.fs" />
     <Compile Include="Program.fs" />
   </ItemGroup>
+  <ItemGroup>
+    <PackageReference Update="Microsoft.SourceLink.GitHub" Version="1.1.1" />
+    <PackageReference Update="FSharp.Core">
+      <Version>7.0.400</Version>
+    </PackageReference>
+    <PackageReference Update="Microsoft.Extensions.FileSystemGlobbing">
+      <Version>7.0.0</Version>
+    </PackageReference>
+    <PackageReference Update="Microsoft.Extensions.Primitives">
+      <Version>7.0.0</Version>
+    </PackageReference>
+    <PackageReference Update="Microsoft.Extensions.FileProviders.Abstractions">
+      <Version>7.0.0</Version>
+    </PackageReference>
+    <PackageReference Update="Microsoft.Extensions.FileProviders.Physical">
+      <Version>7.0.0</Version>
+    </PackageReference>
+    <PackageReference Update="Microsoft.Extensions.Configuration.Abstractions">
+      <Version>7.0.0</Version>
+    </PackageReference>
+    <PackageReference Update="Microsoft.Extensions.Configuration.FileExtensions">
+      <Version>7.0.0</Version>
+    </PackageReference>
+    <PackageReference Update="System.Text.Json">
+      <Version>7.0.3</Version>
+    </PackageReference>
+    <PackageReference Update="Microsoft.NETCore.Platforms">
+      <Version>7.0.4</Version>
+    </PackageReference>
+    <PackageReference Update="System.Text.Encodings.Web">
+      <Version>7.0.0</Version>
+    </PackageReference>
+    <PackageReference Update="Microsoft.Bcl.AsyncInterfaces">
+      <Version>7.0.0</Version>
+    </PackageReference>
+    <PackageReference Update="System.Formats.Asn1">
+      <Version>7.0.0</Version>
+    </PackageReference>
+    <PackageReference Update="Microsoft.Extensions.Configuration">
+      <Version>7.0.0</Version>
+    </PackageReference>
+    <PackageReference Update="Microsoft.Extensions.Configuration.Json">
+      <Version>7.0.0</Version>
+    </PackageReference>
+  </ItemGroup>
   <Import Project="..\..\.paket\Paket.Restore.targets" />
 
 </Project>

samples/FSharp.CosmosDb.Samples.ChangeFeed/Program.fs

@@ -15,7 +15,7 @@ let getFamiliesConnection host key =
 [<EntryPoint>]
 let main argv =
     let environmentName =
-        System.Environment.GetEnvironmentVariable("ASPNETCORE_ENVIRONMENT")
+        Environment.GetEnvironmentVariable("ASPNETCORE_ENVIRONMENT")
 
     let builder =
         JsonConfigurationExtensions.AddJsonFile(
@@ -25,7 +25,7 @@ let main argv =
                 true,
                 true
             ),
-            sprintf "appsettings.%s.json" environmentName,
+            $"appsettings.%s{environmentName}.json",
             true,
             true
         )
@@ -38,7 +38,7 @@ let main argv =
         let conn = getFamiliesConnection host key
 
         let onChange changes _ =
-            printfn "Changes: %A" changes
+            printfn $"Changes: %A{changes}"
             System.Threading.Tasks.Task.CompletedTask
 
         let processor =

samples/FSharp.CosmosDb.Samples/FSharp.CosmosDb.Samples.fsproj

@@ -19,5 +19,53 @@
     <Compile Include="../shared/Types.fs" />
     <Compile Include="Program.fs" />
   </ItemGroup>
+  <ItemGroup>
+    <PackageReference Update="Microsoft.SourceLink.GitHub" Version="1.1.1" />
+    <PackageReference Update="FSharp.Core">
+      <Version>7.0.400</Version>
+    </PackageReference>
+    <PackageReference Update="Microsoft.Extensions.FileSystemGlobbing">
+      <Version>7.0.0</Version>
+    </PackageReference>
+    <PackageReference Update="Microsoft.Extensions.Primitives">
+      <Version>7.0.0</Version>
+    </PackageReference>
+    <PackageReference Update="Microsoft.Extensions.FileProviders.Abstractions">
+      <Version>7.0.0</Version>
+    </PackageReference>
+    <PackageReference Update="Microsoft.Extensions.FileProviders.Physical">
+      <Version>7.0.0</Version>
+    </PackageReference>
+    <PackageReference Update="Microsoft.Extensions.Configuration.Abstractions">
+      <Version>7.0.0</Version>
+    </PackageReference>
+    <PackageReference Update="Microsoft.Extensions.Configuration.FileExtensions">
+      <Version>7.0.0</Version>
+    </PackageReference>
+    <PackageReference Update="System.Text.Json">
+      <Version>7.0.3</Version>
+    </PackageReference>
+    <PackageReference Update="Microsoft.NETCore.Platforms">
+      <Version>7.0.4</Version>
+    </PackageReference>
+    <PackageReference Update="System.Text.Encodings.Web">
+      <Version>7.0.0</Version>
+    </PackageReference>
+    <PackageReference Update="Microsoft.Bcl.AsyncInterfaces">
+      <Version>7.0.0</Version>
+    </PackageReference>
+    <PackageReference Update="System.Formats.Asn1">
+      <Version>7.0.0</Version>
+    </PackageReference>
+    <PackageReference Update="Microsoft.Extensions.Configuration">
+      <Version>7.0.0</Version>
+    </PackageReference>
+    <PackageReference Update="Microsoft.Extensions.Configuration.EnvironmentVariables">
+      <Version>7.0.0</Version>
+    </PackageReference>
+    <PackageReference Update="Microsoft.Extensions.Configuration.Json">
+      <Version>7.0.0</Version>
+    </PackageReference>
+  </ItemGroup>
   <Import Project="..\..\.paket\Paket.Restore.targets" />
 </Project>

samples/FSharp.CosmosDb.Samples/Program.fs

@@ -65,7 +65,7 @@ let main argv =
                     true,
                     true
                 ),
-                sprintf "appsettings.%s.json" environmentName,
+                $"appsettings.%s{environmentName}.json",
                 true,
                 true
             )
@@ -117,33 +117,33 @@ let main argv =
 
         do!
             insert
-            |> AsyncSeq.iter (fun f -> printfn "Inserted: %A" f)
+            |> AsyncSeq.iter (fun f -> printfn $"Inserted: %A{f}")
 
         let families = getFamilies conn
 
         do!
             families
-            |> AsyncSeq.iter (fun f -> printfn "Got: %A" f)
+            |> AsyncSeq.iter (fun f -> printfn $"Got: %A{f}")
 
         let updatePowell = updateFamily conn "Powell.1" "Powell"
 
         do!
             updatePowell
-            |> AsyncSeq.iter (fun f -> printfn "Updated: %A" f)
+            |> AsyncSeq.iter (fun f -> printfn $"Updated: %A{f}")
 
         let deletePowell = deleteFamily conn "Powell.1" "Powell"
 
         do!
             deletePowell
-            |> AsyncSeq.iter (fun f -> printfn "Deleted: %A" f)
+            |> AsyncSeq.iter (fun f -> printfn $"Deleted: %A{f}")
 
         do!
             conn
             |> Cosmos.query<Family> "SELECT * FROM c"
             |> Cosmos.execAsync
             |> AsyncSeq.map (fun f -> { f with LastName = "Powellz" })
             |> AsyncSeq.map (fun f -> conn |> Cosmos.replace f |> Cosmos.execAsync)
-            |> AsyncSeq.iter (fun f -> printfn "Replaced: %A" f)
+            |> AsyncSeq.iter (fun f -> printfn $"Replaced: %A{f}")
 
         // do!
         //     conn

src/FSharp.CosmosDb.Analyzer/Analyzer.fs

@@ -4,40 +4,43 @@ open FSharp.Analyzers.SDK
 open FSharp.CosmosDb.Analyzer
 
 [<Analyzer>]
-let cosmosDbAnalyzer: Analyzer =
-    fun (context: Context) ->
+let cosmosDbAnalyzer: Analyzer<EditorContext> =
+    fun (context: EditorContext) ->
         let syntaxBlocks = CosmosCodeAnalysis.findOperations context
 
         let connStr = ConnectionLookup.findConnectionString context.FileName
 
-        match connStr with
-        | Some connStr ->
-            match CosmosCodeAnalyzer.testConnection connStr with
-            | Error msg ->
-                [ for block in syntaxBlocks -> Messaging.error msg block.range ]
-            | Success client ->
-                syntaxBlocks
-                |> List.collect (fun block ->
-                    match CosmosCodeAnalyzer.findDatabaseOperation block with
-                    | Some(dbId, range) ->
-                        CosmosCodeAnalyzer.analyzeDatabaseOperation dbId range client
-                        |> List.append
-                            (match CosmosCodeAnalyzer.findContainerOperation block with
-                             | Some(containerName, range) ->
-                                 CosmosCodeAnalyzer.analyzeContainerNameOperation dbId containerName range client
-                             | None -> [])
-                        |> List.append
-                            (match CosmosCodeAnalyzer.findParameters block with
-                             | Some(parameters, range) -> CosmosCodeAnalyzer.analyzeParameters block parameters range
-                             | None -> [])
+        let result =
+            match connStr with
+            | Some connStr ->
+                match CosmosCodeAnalyzer.testConnection connStr with
+                | Error msg ->
+                    [ for block in syntaxBlocks -> Messaging.error msg block.range ]
+                | Success client ->
+                    syntaxBlocks
+                    |> List.collect (fun block ->
+                        match CosmosCodeAnalyzer.findDatabaseOperation block with
+                        | Some(dbId, range) ->
+                            CosmosCodeAnalyzer.analyzeDatabaseOperation dbId range client
+                            |> List.append
+                                (match CosmosCodeAnalyzer.findContainerOperation block with
+                                 | Some(containerName, range) ->
+                                     CosmosCodeAnalyzer.analyzeContainerNameOperation dbId containerName range client
+                                 | None -> [])
+                            |> List.append
+                                (match CosmosCodeAnalyzer.findParameters block with
+                                 | Some(parameters, range) -> CosmosCodeAnalyzer.analyzeParameters block parameters range
+                                 | None -> [])
+
+                        | None ->
+                            match CosmosCodeAnalyzer.findParameters block with
+                            | Some(parameters, range) -> CosmosCodeAnalyzer.analyzeParameters block parameters range
+                            | None -> [])
+                    |> List.distinctBy (fun msg -> msg.Range)
+            | None ->
+                [ for block in syntaxBlocks ->
+                    Messaging.warning
+                        "No connection string was found, ensure either the appropriate environment variables or appsettings.json is created"
+                        block.range ]
+        async { return result }
 
-                    | None ->
-                        match CosmosCodeAnalyzer.findParameters block with
-                        | Some(parameters, range) -> CosmosCodeAnalyzer.analyzeParameters block parameters range
-                        | None -> [])
-                |> List.distinctBy (fun msg -> msg.Range)
-        | None ->
-            [ for block in syntaxBlocks ->
-                Messaging.warning
-                    "No connection string was found, ensure either the appropriate environment variables or appsettings.json is created"
-                    block.range ]

src/FSharp.CosmosDb.Analyzer/ConnectionLookup.fs

@@ -23,10 +23,10 @@ let private findFromEnv () =
     let cs = gev "FSHARP_COSMOS_CONNSTR"
 
     match host, key, cs with
-    | (Some host, Some key, None) ->
-        sprintf "AccountEndpoint=%s;AccountKey=%s;" host key
+    | Some host, Some key, None ->
+        $"AccountEndpoint=%s{host};AccountKey=%s{key};"
         |> Some
-    | (None, None, cs) -> cs
+    | None, None, cs -> cs
     | _ -> None
 
 let private possibleFileNames =
@@ -41,7 +41,7 @@ type AppSettings =
 let private findFromAppSettings relativeFile =
     let folders =
         [ Environment.CurrentDirectory
-          ((FileInfo(relativeFile)).Directory).FullName ]
+          FileInfo(relativeFile).Directory.FullName ]
 
     let settingsFiles =
         possibleFileNames
@@ -68,11 +68,11 @@ let private findFromAppSettings relativeFile =
             match config.CosmosConnection with
             | Some cc ->
                 match cc.ConnectionString, cc.Host, cc.Key with
-                | (Some cs, None, None) when stringHasValue cs -> true
-                | (Some cs, Some _, Some _) when stringHasValue cs -> true
-                | (Some _, Some host, Some key) when stringHasValue host && stringHasValue key -> true
-                | (None, Some host, Some key) when stringHasValue host && stringHasValue key -> true
-                | (_, _, _) -> false
+                | Some cs, None, None when stringHasValue cs -> true
+                | Some cs, Some _, Some _ when stringHasValue cs -> true
+                | Some _, Some host, Some key when stringHasValue host && stringHasValue key -> true
+                | None, Some host, Some key when stringHasValue host && stringHasValue key -> true
+                | _, _, _ -> false
             | None -> false)
         |> List.tryHead
 
@@ -82,12 +82,12 @@ let private findFromAppSettings relativeFile =
         match config.CosmosConnection with
         | Some cc ->
             match cc.ConnectionString, cc.Host, cc.Key with
-            | (Some cs, None, None) when stringHasValue cs -> Some cs
-            | (Some cs, Some _, Some _) when stringHasValue cs -> Some cs
-            | (Some _, Some host, Some key) when stringHasValue host && stringHasValue key ->
+            | Some cs, None, None when stringHasValue cs -> Some cs
+            | Some cs, Some _, Some _ when stringHasValue cs -> Some cs
+            | Some _, Some host, Some key when stringHasValue host && stringHasValue key ->
                 makeConnStr host key |> Some
-            | (None, Some host, Some key) when stringHasValue host && stringHasValue key -> makeConnStr host key |> Some
-            | (_, _, _) -> None
+            | None, Some host, Some key when stringHasValue host && stringHasValue key -> makeConnStr host key |> Some
+            | _, _, _ -> None
         | None -> None
 
 let findConnectionString relativeFile =