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