Don't add duplicate newline between letbindings inside type definition.

Fixes #709. (#714)
fsprojects · Mar 6, 2020 · 37eb222 · 37eb222
1 parent 052673d
commit 37eb222
Show file tree

Hide file tree

Showing 2 changed files with 31 additions and 0 deletions.
diff --git a/src/Fantomas.Tests/TypeDeclarationTests.fs b/src/Fantomas.Tests/TypeDeclarationTests.fs
@@ -1000,4 +1000,34 @@ and [<Marker>] Room =
     { Details: Details
       Items: Item list
       Exits: Exits }
+"""
+
+[<Test>]
+let ``trivia newlines between letbinding of type, 709`` () =
+    formatSourceString false """
+open Xunit
+open FSharp.Core
+open Swensen.Unquote
+
+type FormattingSpecs() =
+
+    [<Fact>]
+    let ``true is true``() = test <@ true = true @>
+
+    [<Fact>]
+    let ``false is false``() = test <@ false = false @>
+"""  config
+    |> prepend newline
+    |> should equal """
+open Xunit
+open FSharp.Core
+open Swensen.Unquote
+
+type FormattingSpecs() =
+
+    [<Fact>]
+    let ``true is true``() = test <@ true = true @>
+
+    [<Fact>]
+    let ``false is false``() = test <@ false = false @>
 """
diff --git a/src/Fantomas/SourceParser.fs b/src/Fantomas/SourceParser.fs
@@ -1310,4 +1310,5 @@ let getRangesFromAttributesFromSynMemberDefinition (mdn: SynMemberDefn) =
     match mdn with
     | SynMemberDefn.Member(mb,_) -> getRangesFromAttributesFromSynBinding mb
     | SynMemberDefn.AbstractSlot(valSig, _, _) -> getRangesFromAttributesFromSynValSig valSig
+    | SynMemberDefn.LetBindings(lb::_,_,_,_) -> getRangesFromAttributesFromSynBinding lb
     | _ -> []