Merge branch 'main' into repo-assist/improve-nameutils-alloc-fastpath-2026-04-13-5985c2920c3bc39b

dsyme · web-flow · commit 40e87503edc5 · 2026-04-17T21:19:19.000+10:00
diff --git a/.github/workflows/repo-assist.lock.yml b/.github/workflows/repo-assist.lock.yml
diff --git a/paket.lock b/paket.lock
@@ -24,9 +24,9 @@ NUGET
     NETStandard.Library.NETFramework (2.0.0-preview2-25405-01)
 GITHUB
   remote: fsprojects/FSharp.TypeProviders.SDK
-    src/ProvidedTypes.fs (ce34c1cc71096857b8342f1dedf93391addc9df6)
-    src/ProvidedTypes.fsi (ce34c1cc71096857b8342f1dedf93391addc9df6)
-    tests/ProvidedTypesTesting.fs (ce34c1cc71096857b8342f1dedf93391addc9df6)
+    src/ProvidedTypes.fs (75ac6119896431f6573bfcfb663bac2fe3d3df63)
+    src/ProvidedTypes.fsi (75ac6119896431f6573bfcfb663bac2fe3d3df63)
+    tests/ProvidedTypesTesting.fs (75ac6119896431f6573bfcfb663bac2fe3d3df63)
 GROUP Benchmarks
 RESTRICTION: == net8.0
 NUGET
diff --git a/src/AssemblyInfo.Csv.Core.fs b/src/AssemblyInfo.Csv.Core.fs
@@ -5,13 +5,13 @@ open System.Reflection
 [<assembly: AssemblyTitleAttribute("FSharp.Data.Csv.Core")>]
 [<assembly: AssemblyProductAttribute("FSharp.Data")>]
 [<assembly: AssemblyDescriptionAttribute("Library of F# type providers and data access tools")>]
-[<assembly: AssemblyVersionAttribute("8.1.0.0")>]
-[<assembly: AssemblyFileVersionAttribute("8.1.0.0")>]
+[<assembly: AssemblyVersionAttribute("8.1.8.0")>]
+[<assembly: AssemblyFileVersionAttribute("8.1.8.0")>]
 do ()
 
 module internal AssemblyVersionInformation =
     let [<Literal>] AssemblyTitle = "FSharp.Data.Csv.Core"
     let [<Literal>] AssemblyProduct = "FSharp.Data"
     let [<Literal>] AssemblyDescription = "Library of F# type providers and data access tools"
-    let [<Literal>] AssemblyVersion = "8.1.0.0"
-    let [<Literal>] AssemblyFileVersion = "8.1.0.0"
+    let [<Literal>] AssemblyVersion = "8.1.8.0"
+    let [<Literal>] AssemblyFileVersion = "8.1.8.0"
diff --git a/src/AssemblyInfo.DesignTime.fs b/src/AssemblyInfo.DesignTime.fs
@@ -5,13 +5,13 @@ open System.Reflection
 [<assembly: AssemblyTitleAttribute("FSharp.Data.DesignTime")>]
 [<assembly: AssemblyProductAttribute("FSharp.Data")>]
 [<assembly: AssemblyDescriptionAttribute("Library of F# type providers and data access tools")>]
-[<assembly: AssemblyVersionAttribute("8.1.0.0")>]
-[<assembly: AssemblyFileVersionAttribute("8.1.0.0")>]
+[<assembly: AssemblyVersionAttribute("8.1.8.0")>]
+[<assembly: AssemblyFileVersionAttribute("8.1.8.0")>]
 do ()
 
 module internal AssemblyVersionInformation =
     let [<Literal>] AssemblyTitle = "FSharp.Data.DesignTime"
     let [<Literal>] AssemblyProduct = "FSharp.Data"
     let [<Literal>] AssemblyDescription = "Library of F# type providers and data access tools"
-    let [<Literal>] AssemblyVersion = "8.1.0.0"
-    let [<Literal>] AssemblyFileVersion = "8.1.0.0"
+    let [<Literal>] AssemblyVersion = "8.1.8.0"
+    let [<Literal>] AssemblyFileVersion = "8.1.8.0"
diff --git a/src/AssemblyInfo.Html.Core.fs b/src/AssemblyInfo.Html.Core.fs
@@ -5,13 +5,13 @@ open System.Reflection
 [<assembly: AssemblyTitleAttribute("FSharp.Data.Html.Core")>]
 [<assembly: AssemblyProductAttribute("FSharp.Data")>]
 [<assembly: AssemblyDescriptionAttribute("Library of F# type providers and data access tools")>]
-[<assembly: AssemblyVersionAttribute("8.1.0.0")>]
-[<assembly: AssemblyFileVersionAttribute("8.1.0.0")>]
+[<assembly: AssemblyVersionAttribute("8.1.8.0")>]
+[<assembly: AssemblyFileVersionAttribute("8.1.8.0")>]
 do ()
 
 module internal AssemblyVersionInformation =
     let [<Literal>] AssemblyTitle = "FSharp.Data.Html.Core"
     let [<Literal>] AssemblyProduct = "FSharp.Data"
     let [<Literal>] AssemblyDescription = "Library of F# type providers and data access tools"
-    let [<Literal>] AssemblyVersion = "8.1.0.0"
-    let [<Literal>] AssemblyFileVersion = "8.1.0.0"
+    let [<Literal>] AssemblyVersion = "8.1.8.0"
+    let [<Literal>] AssemblyFileVersion = "8.1.8.0"
diff --git a/src/AssemblyInfo.Http.fs b/src/AssemblyInfo.Http.fs
@@ -5,13 +5,13 @@ open System.Reflection
 [<assembly: AssemblyTitleAttribute("FSharp.Data.Http")>]
 [<assembly: AssemblyProductAttribute("FSharp.Data")>]
 [<assembly: AssemblyDescriptionAttribute("Library of F# type providers and data access tools")>]
-[<assembly: AssemblyVersionAttribute("8.1.0.0")>]
-[<assembly: AssemblyFileVersionAttribute("8.1.0.0")>]
+[<assembly: AssemblyVersionAttribute("8.1.8.0")>]
+[<assembly: AssemblyFileVersionAttribute("8.1.8.0")>]
 do ()
 
 module internal AssemblyVersionInformation =
     let [<Literal>] AssemblyTitle = "FSharp.Data.Http"
     let [<Literal>] AssemblyProduct = "FSharp.Data"
     let [<Literal>] AssemblyDescription = "Library of F# type providers and data access tools"
-    let [<Literal>] AssemblyVersion = "8.1.0.0"
-    let [<Literal>] AssemblyFileVersion = "8.1.0.0"
+    let [<Literal>] AssemblyVersion = "8.1.8.0"
+    let [<Literal>] AssemblyFileVersion = "8.1.8.0"
diff --git a/src/AssemblyInfo.Json.Core.fs b/src/AssemblyInfo.Json.Core.fs
@@ -5,13 +5,13 @@ open System.Reflection
 [<assembly: AssemblyTitleAttribute("FSharp.Data.Json.Core")>]
 [<assembly: AssemblyProductAttribute("FSharp.Data")>]
 [<assembly: AssemblyDescriptionAttribute("Library of F# type providers and data access tools")>]
-[<assembly: AssemblyVersionAttribute("8.1.0.0")>]
-[<assembly: AssemblyFileVersionAttribute("8.1.0.0")>]
+[<assembly: AssemblyVersionAttribute("8.1.8.0")>]
+[<assembly: AssemblyFileVersionAttribute("8.1.8.0")>]
 do ()
 
 module internal AssemblyVersionInformation =
     let [<Literal>] AssemblyTitle = "FSharp.Data.Json.Core"
     let [<Literal>] AssemblyProduct = "FSharp.Data"
     let [<Literal>] AssemblyDescription = "Library of F# type providers and data access tools"
-    let [<Literal>] AssemblyVersion = "8.1.0.0"
-    let [<Literal>] AssemblyFileVersion = "8.1.0.0"
+    let [<Literal>] AssemblyVersion = "8.1.8.0"
+    let [<Literal>] AssemblyFileVersion = "8.1.8.0"
diff --git a/src/AssemblyInfo.Runtime.Utilities.fs b/src/AssemblyInfo.Runtime.Utilities.fs
@@ -5,13 +5,13 @@ open System.Reflection
 [<assembly: AssemblyTitleAttribute("FSharp.Data.Runtime.Utilities")>]
 [<assembly: AssemblyProductAttribute("FSharp.Data")>]
 [<assembly: AssemblyDescriptionAttribute("Library of F# type providers and data access tools")>]
-[<assembly: AssemblyVersionAttribute("8.1.0.0")>]
-[<assembly: AssemblyFileVersionAttribute("8.1.0.0")>]
+[<assembly: AssemblyVersionAttribute("8.1.8.0")>]
+[<assembly: AssemblyFileVersionAttribute("8.1.8.0")>]
 do ()
 
 module internal AssemblyVersionInformation =
     let [<Literal>] AssemblyTitle = "FSharp.Data.Runtime.Utilities"
     let [<Literal>] AssemblyProduct = "FSharp.Data"
     let [<Literal>] AssemblyDescription = "Library of F# type providers and data access tools"
-    let [<Literal>] AssemblyVersion = "8.1.0.0"
-    let [<Literal>] AssemblyFileVersion = "8.1.0.0"
+    let [<Literal>] AssemblyVersion = "8.1.8.0"
+    let [<Literal>] AssemblyFileVersion = "8.1.8.0"
diff --git a/src/AssemblyInfo.WorldBank.Core.fs b/src/AssemblyInfo.WorldBank.Core.fs
@@ -5,13 +5,13 @@ open System.Reflection
 [<assembly: AssemblyTitleAttribute("FSharp.Data.WorldBank.Core")>]
 [<assembly: AssemblyProductAttribute("FSharp.Data")>]
 [<assembly: AssemblyDescriptionAttribute("Library of F# type providers and data access tools")>]
-[<assembly: AssemblyVersionAttribute("8.1.0.0")>]
-[<assembly: AssemblyFileVersionAttribute("8.1.0.0")>]
+[<assembly: AssemblyVersionAttribute("8.1.8.0")>]
+[<assembly: AssemblyFileVersionAttribute("8.1.8.0")>]
 do ()
 
 module internal AssemblyVersionInformation =
     let [<Literal>] AssemblyTitle = "FSharp.Data.WorldBank.Core"
     let [<Literal>] AssemblyProduct = "FSharp.Data"
     let [<Literal>] AssemblyDescription = "Library of F# type providers and data access tools"
-    let [<Literal>] AssemblyVersion = "8.1.0.0"
-    let [<Literal>] AssemblyFileVersion = "8.1.0.0"
+    let [<Literal>] AssemblyVersion = "8.1.8.0"
+    let [<Literal>] AssemblyFileVersion = "8.1.8.0"
diff --git a/src/AssemblyInfo.Xml.Core.fs b/src/AssemblyInfo.Xml.Core.fs
@@ -5,13 +5,13 @@ open System.Reflection
 [<assembly: AssemblyTitleAttribute("FSharp.Data.Xml.Core")>]
 [<assembly: AssemblyProductAttribute("FSharp.Data")>]
 [<assembly: AssemblyDescriptionAttribute("Library of F# type providers and data access tools")>]
-[<assembly: AssemblyVersionAttribute("8.1.0.0")>]
-[<assembly: AssemblyFileVersionAttribute("8.1.0.0")>]
+[<assembly: AssemblyVersionAttribute("8.1.8.0")>]
+[<assembly: AssemblyFileVersionAttribute("8.1.8.0")>]
 do ()
 
 module internal AssemblyVersionInformation =
     let [<Literal>] AssemblyTitle = "FSharp.Data.Xml.Core"
     let [<Literal>] AssemblyProduct = "FSharp.Data"
     let [<Literal>] AssemblyDescription = "Library of F# type providers and data access tools"
-    let [<Literal>] AssemblyVersion = "8.1.0.0"
-    let [<Literal>] AssemblyFileVersion = "8.1.0.0"
+    let [<Literal>] AssemblyVersion = "8.1.8.0"
+    let [<Literal>] AssemblyFileVersion = "8.1.8.0"
diff --git a/src/AssemblyInfo.fs b/src/AssemblyInfo.fs
@@ -5,13 +5,13 @@ open System.Reflection
 [<assembly: AssemblyTitleAttribute("FSharp.Data")>]
 [<assembly: AssemblyProductAttribute("FSharp.Data")>]
 [<assembly: AssemblyDescriptionAttribute("Library of F# type providers and data access tools")>]
-[<assembly: AssemblyVersionAttribute("8.1.0.0")>]
-[<assembly: AssemblyFileVersionAttribute("8.1.0.0")>]
+[<assembly: AssemblyVersionAttribute("8.1.8.0")>]
+[<assembly: AssemblyFileVersionAttribute("8.1.8.0")>]
 do ()
 
 module internal AssemblyVersionInformation =
     let [<Literal>] AssemblyTitle = "FSharp.Data"
     let [<Literal>] AssemblyProduct = "FSharp.Data"
     let [<Literal>] AssemblyDescription = "Library of F# type providers and data access tools"
-    let [<Literal>] AssemblyVersion = "8.1.0.0"
-    let [<Literal>] AssemblyFileVersion = "8.1.0.0"
+    let [<Literal>] AssemblyVersion = "8.1.8.0"
+    let [<Literal>] AssemblyFileVersion = "8.1.8.0"
diff --git a/src/FSharp.Data.Runtime.Utilities/Caching.fs b/src/FSharp.Data.Runtime.Utilities/Caching.fs
@@ -55,7 +55,15 @@ let createInMemoryCache (expiration: TimeSpan) =
 /// Get hash code of a string - used to determine cache file
 let private hashString (plainText: string) =
     let plainTextBytes = Encoding.UTF8.GetBytes(plainText)
-    let hashBytes = SHA1.Create().ComputeHash(plainTextBytes)
+
+    let hashBytes =
+#if NET5_0_OR_GREATER
+        SHA1.HashData(plainTextBytes)
+#else
+        use sha1 = SHA1.Create()
+        sha1.ComputeHash(plainTextBytes)
+#endif
+
     let s = Convert.ToBase64String(hashBytes)
     s.Replace("ab", "abab").Replace("\\", "ab")
 
diff --git a/src/FSharp.Data.WorldBank.Core/WorldBankRuntime.fs b/src/FSharp.Data.WorldBank.Core/WorldBankRuntime.fs
@@ -18,6 +18,7 @@ open FSharp.Data.Runtime.Caching
 module Implementation =
 
     let private retryCount = 5
+    let private retryDelayMs = 2000 // 2 seconds between retries to handle transient API failures (e.g. 502 Bad Gateway)
     let private parallelIndicatorPageDownloads = 8
 
     type internal IndicatorRecord =
@@ -85,6 +86,8 @@ module Implementation =
                         Debug.WriteLine(sprintf "[WorldBank] error: %s" (e.ToString()))
 
                         if attempt > 0 then
+                            // Delay before retrying to handle transient server-side failures (e.g. 502 Bad Gateway)
+                            do! Async.Sleep retryDelayMs
                             return! worldBankRequest (attempt - 1) funcs args
                         else
                             return! failwithf "Failed to request '%s'. Error: %O" url e
