[Rust] Uncurry field types for object expressions

src/Fable.Cli/CHANGELOG.md

@@ -16,6 +16,7 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 ### Fixed
 
 * [GH-3900](https://github.com/fable-compiler/Fable/pull/3900) [Python] Fix nuget packages with hypens in their names  (by @MangelMaxime)
+* [Rust] Uncurry field types for object expressions (by @ncave)
 
 ## 4.21.0 - 2024-09-19
 

src/Fable.Transforms/Rust/Fable2Rust.fs

@@ -2116,7 +2116,10 @@ module Util =
                     memberDecl
                 )
 
-            let fieldIdents = fieldsMap.Values |> Seq.toList
+            let fieldIdents =
+                fieldsMap.Values
+                |> Seq.map (fun ident -> { ident with Type = FableTransforms.uncurryType ident.Type })
+                |> Seq.toList
 
             let fields =
                 fieldIdents

src/fable-library-rust/src/FSharp.Collections.fs

@@ -0,0 +1,21 @@
+namespace FSharp.Collections
+
+open System.Collections.Generic
+
+module HashIdentity =
+    let FromFunctions<'T> hasher equals : IEqualityComparer<'T> =
+        EqualityComparer<'T>.Create(equals, hasher)
+
+    let Structural<'T when 'T: equality> : IEqualityComparer<'T> =
+        EqualityComparer<'T>
+            .Create(LanguagePrimitives.GenericEquality, LanguagePrimitives.GenericHash)
+
+    let Reference<'T when 'T: not struct> : IEqualityComparer<'T> =
+        EqualityComparer<'T>
+            .Create(LanguagePrimitives.PhysicalEquality, LanguagePrimitives.PhysicalHash)
+
+module ComparisonIdentity =
+    let FromFunction<'T> comparer : IComparer<'T> = Comparer<'T>.Create(comparer)
+
+    let Structural<'T when 'T: comparison> : IComparer<'T> =
+        Comparer<'T>.Create(LanguagePrimitives.GenericComparison)

src/fable-library-rust/src/Fable.Library.Rust.fsproj

@@ -18,6 +18,7 @@
     <Compile Include="Choice.fs" />
     <Compile Include="Util.fs" />
     <Compile Include="FSharp.Control.fs" />
+    <Compile Include="FSharp.Collections.fs" />
     <Compile Include="System.fs" />
     <Compile Include="System.Collections.Generic.fs" />
     <Compile Include="System.Text.fs" />