Fix existing tests

fsprojects · Sep 13, 2024 · 09c1538 · 09c1538
1 parent 17dd26e
commit 09c1538
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 3 deletions.
diff --git a/src/Fantomas.Core.Tests/AutoPropertiesTests.fs b/src/Fantomas.Core.Tests/AutoPropertiesTests.fs
@@ -25,7 +25,7 @@ let ``public get, private set in signature`` () =
         """
 module A
 
-type X() =
+type X =
     member val internal Y: int = 7 with public get, private set
 """
         config

diff --git a/src/Fantomas.Core.Tests/NullnessTests.fs b/src/Fantomas.Core.Tests/NullnessTests.fs
@@ -43,7 +43,7 @@ let myFunc() : 'T when 'T : not struct and 'T:null = null
     |> should
         equal
         """
-
+let myFunc () : 'T when 'T: not struct and 'T: null = null
 """
 
 [<Test>]
@@ -86,7 +86,9 @@ match x with
     |> should
         equal
         """
-
+match x with
+| :? string
+| null -> ()
 """
 
 [<Test>]

diff --git a/src/Fantomas.Core/ASTTransformer.fs b/src/Fantomas.Core/ASTTransformer.fs
@@ -81,6 +81,7 @@ let mkSynAccess (vis: SynAccess option) =
 /// https://fsharp.github.io/fsharp-compiler-docs/reference/fsharp-compiler-syntax-synvalsigaccess.html
 let mkSynValSigAccess (vis: SynValSigAccess) =
     match vis with
+    | SynValSigAccess.GetSet(accessibility = vis; getterAccessibility = None; setterAccessibility = None)
     | SynValSigAccess.Single(accessibility = vis) -> mkSynAccess vis
     | _ -> failwithf "todo SynValSigAccess: %A" vis