From 09c15388b1157e53109f8fd2455e6efc2b0050ba Mon Sep 17 00:00:00 2001
From: nojaf <florian.verdonck@outlook.com>
Date: Fri, 13 Sep 2024 11:29:09 +0200
Subject: [PATCH] Fix existing tests

---
 src/Fantomas.Core.Tests/AutoPropertiesTests.fs | 2 +-
 src/Fantomas.Core.Tests/NullnessTests.fs       | 6 ++++--
 src/Fantomas.Core/ASTTransformer.fs            | 1 +
 3 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/src/Fantomas.Core.Tests/AutoPropertiesTests.fs b/src/Fantomas.Core.Tests/AutoPropertiesTests.fs
index acccf16f5..a0d887ca5 100644
--- 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
index 25e12cb28..981d2725d 100644
--- 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
index faf8998d1..308ca96ff 100644
--- 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