Update Fantomas.Core to 7.0.5 and add F# 8 dot lambda syntax test

Co-authored-by: 7sharp9 <588746+7sharp9@users.noreply.github.com>

Author: Copilot

paket.lock

@@ -1,55 +1,55 @@
-STORAGE: NONE
-RESTRICTION: == net9.0
-NUGET
-  remote: https://api.nuget.org/v3/index.json
-    Aether (8.3.1)
-      FSharp.Core (>= 4.3.4)
-    Argu (6.2.5)
-      FSharp.Core (>= 6.0)
-      System.Configuration.ConfigurationManager (>= 4.4)
-    Expecto (10.2.1)
-      FSharp.Core (>= 7.0.200)
-      Mono.Cecil (>= 0.11.4 < 1.0)
-    Fantomas.Core (7.0)
-      Fantomas.FCS (>= 7.0)
-      FSharp.Core (>= 8.0.100)
-      System.Collections.Immutable (>= 8.0)
-      System.Diagnostics.DiagnosticSource (>= 8.0.1)
-      System.Memory (>= 4.6)
-      System.Runtime (>= 4.3.1)
-    Fantomas.FCS (7.0)
-      FSharp.Core (>= 8.0.100)
-      System.Collections.Immutable (>= 8.0)
-      System.Diagnostics.DiagnosticSource (>= 8.0.1)
-      System.Memory (>= 4.6)
-      System.Runtime (>= 4.3.1)
-    FSharp.Compiler.Service (43.9.101)
-      FSharp.Core (9.0.101)
-      System.Buffers (>= 4.5.1)
-      System.Collections.Immutable (>= 8.0)
-      System.Diagnostics.DiagnosticSource (>= 8.0)
-      System.Memory (>= 4.5.5)
-      System.Reflection.Emit (>= 4.7)
-      System.Reflection.Metadata (>= 8.0)
-      System.Runtime.CompilerServices.Unsafe (>= 6.0)
-    FSharp.Core (9.0.101)
-    McMaster.NETCore.Plugins (2.0)
-    Microsoft.NETCore.Platforms (7.0.4)
-    Microsoft.NETCore.Targets (5.0)
-    Mono.Cecil (0.11.6)
-    System.Buffers (4.6)
-    System.Collections.Immutable (9.0.1)
-    System.Configuration.ConfigurationManager (9.0.1)
-      System.Diagnostics.EventLog (>= 9.0.1)
-      System.Security.Cryptography.ProtectedData (>= 9.0.1)
-    System.Diagnostics.DiagnosticSource (9.0.1)
-    System.Diagnostics.EventLog (9.0.1)
-    System.Memory (4.6)
-    System.Reflection.Emit (4.7)
-    System.Reflection.Metadata (9.0.1)
-    System.Runtime (4.3.1)
-      Microsoft.NETCore.Platforms (>= 1.1.1)
-      Microsoft.NETCore.Targets (>= 1.1.3)
-    System.Runtime.CompilerServices.Unsafe (6.1)
-    System.Security.Cryptography.ProtectedData (9.0.1)
-    Tomlyn (0.18)
+STORAGE: NONE
+RESTRICTION: == net9.0
+NUGET
+  remote: https://api.nuget.org/v3/index.json
+    Aether (8.3.1)
+      FSharp.Core (>= 4.3.4)
+    Argu (6.2.5)
+      FSharp.Core (>= 6.0)
+      System.Configuration.ConfigurationManager (>= 4.4)
+    Expecto (10.2.1)
+      FSharp.Core (>= 7.0.200)
+      Mono.Cecil (>= 0.11.4 < 1.0)
+    Fantomas.Core (7.0.5)
+      Fantomas.FCS (>= 7.0.5)
+      FSharp.Core (>= 8.0.100)
+      System.Collections.Immutable (>= 8.0)
+      System.Diagnostics.DiagnosticSource (>= 8.0.1)
+      System.Memory (>= 4.6)
+      System.Runtime (>= 4.3.1)
+    Fantomas.FCS (7.0.5)
+      FSharp.Core (>= 8.0.100)
+      System.Collections.Immutable (>= 8.0)
+      System.Diagnostics.DiagnosticSource (>= 8.0.1)
+      System.Memory (>= 4.6)
+      System.Runtime (>= 4.3.1)
+    FSharp.Compiler.Service (43.9.101)
+      FSharp.Core (9.0.101)
+      System.Buffers (>= 4.5.1)
+      System.Collections.Immutable (>= 8.0)
+      System.Diagnostics.DiagnosticSource (>= 8.0)
+      System.Memory (>= 4.5.5)
+      System.Reflection.Emit (>= 4.7)
+      System.Reflection.Metadata (>= 8.0)
+      System.Runtime.CompilerServices.Unsafe (>= 6.0)
+    FSharp.Core (9.0.101)
+    McMaster.NETCore.Plugins (2.0)
+    Microsoft.NETCore.Platforms (7.0.4)
+    Microsoft.NETCore.Targets (5.0)
+    Mono.Cecil (0.11.6)
+    System.Buffers (4.6)
+    System.Collections.Immutable (9.0.1)
+    System.Configuration.ConfigurationManager (9.0.1)
+      System.Diagnostics.EventLog (>= 9.0.1)
+      System.Security.Cryptography.ProtectedData (>= 9.0.1)
+    System.Diagnostics.DiagnosticSource (9.0.1)
+    System.Diagnostics.EventLog (9.0.1)
+    System.Memory (4.6)
+    System.Reflection.Emit (4.7)
+    System.Reflection.Metadata (9.0.1)
+    System.Runtime (4.3.1)
+      Microsoft.NETCore.Platforms (>= 1.1.1)
+      Microsoft.NETCore.Targets (>= 1.1.3)
+    System.Runtime.CompilerServices.Unsafe (6.1)
+    System.Security.Cryptography.ProtectedData (9.0.1)
+    Tomlyn (0.18)

test/Myriad.IntegrationPluginTests/FieldsLensDus.fs

@@ -105,6 +105,18 @@ module AetherPersonLenses =
         (fun (value: AetherAddress) (x: AetherPerson) -> { x with Address = value })
 namespace rec TestLens
 
+module RecordWithDotLambdaMemberLenses =
+    open Input
+
+    let count =
+        (fun (x: RecordWithDotLambdaMember) -> x.count),
+        (fun (x: RecordWithDotLambdaMember) (value: int) -> { x with count = value })
+
+    let value =
+        (fun (x: RecordWithDotLambdaMember) -> x.value),
+        (fun (x: RecordWithDotLambdaMember) (value: string) -> { x with value = value })
+namespace rec TestLens
+
 module SingleCaseDULenses =
     open Input
 

test/Myriad.IntegrationPluginTests/Input.fs

@@ -75,4 +75,12 @@ type AetherAddress = {
 type AetherPerson = {
     Name : string
     Address : AetherAddress
-}
+}
+
+// Type that uses F# 8 _.property shorthand syntax in a member
+[<Generator.Lenses("lens")>]
+type RecordWithDotLambdaMember = {
+    count: int
+    value: string
+} with
+    member self.upperValues = [ self.value ] |> List.map _.ToUpper()

test/Myriad.IntegrationPluginTests/Tests.fs

@@ -148,5 +148,31 @@ let tests =
                 let value =  Aether.Optic.get AetherTestLens.AetherPersonLenses.Address updated
                 Expect.equal value { Street = "Baker st."; HouseNumber = 222 } "Sets the address lens via Aether"
             }
+
+            testList "F# 8 dot lambda syntax" [
+                let r = { RecordWithDotLambdaMember.count = 42; value = "hello" }
+
+                test "Getter works for record with dot lambda member" {
+                    let getter = fst TestLens.RecordWithDotLambdaMemberLenses.count
+                    Expect.equal 42 (getter r) "getter returns the count value"
+                }
+
+                test "Setter works for record with dot lambda member" {
+                    let setter = snd TestLens.RecordWithDotLambdaMemberLenses.count
+                    let updated = setter r 99
+                    Expect.equal 99 updated.count "setter updates the count value"
+                }
+
+                test "String field getter works for record with dot lambda member" {
+                    let getter = fst TestLens.RecordWithDotLambdaMemberLenses.value
+                    Expect.equal "hello" (getter r) "getter returns the string value"
+                }
+
+                test "String field setter works for record with dot lambda member" {
+                    let setter = snd TestLens.RecordWithDotLambdaMemberLenses.value
+                    let updated = setter r "world"
+                    Expect.equal "world" updated.value "setter updates the string value"
+                }
+            ]
         ]
     ]